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COMMON MULTI-MEDIA DIAGNOSTIC (HMD) CROSS GENERATOR 

PROGRAM DESCRIPTION 



1. GENERAL 

The Common Multi-Media Diagnostic (MMD) Cross Generator, Program 
Number 06-252, is designed for media generation and verification. 
The program always generates or verifies a complete output media; 
no update facilities are provided. 

The possible input and output devices are: 



800 bpi magnetic tape 

1600 bpi magnetic tape 

10Mb disk 

13.5Mb disk 

80*b disk 

300Mb disk 

Floppy disk 



The program automatically determines the nature of the input and 
output devices. If the output device is a magnetic tape or a 
floppy, the proper toot loader segment is written first so that 
the media can be loaded using the standard autoload sequence. If 
the output is a disk, it is created in such a way that it can be 
boot loaded using the same Loader Storage Unit (LSU) or Automatic 
Load Option (AL0) used for boot loading an OS disk. 



NOTE 

The High Performance Tape Drive (HPTD) 
Controller and 13.5Mb disk are supported 
on 32-bit systems only. 



05-252M95A15 R04 



2. REQUIREMENTS 

This is a stand-alone program available on all Multi-Media. The 
program can be executed on any Perkin-Elmer 16-bit or 32-bit 
processor that has 16kb or more of main memory. 

A console device is required to use this program. The default 
console is a video display unit (VDU), such as the Model 550, 
etc., on the X'IOVX'H" PASLA type interface. See Appendix A. 

Whatever the input device, the input media must be in the 

Multi-Media format standard for that media. See Section 6. If 

the input device is a floppy, a Selector Channel (SELCH) is not 

used. If the input device is a magnetic tape, SELCH operation is 

optional. If the input device is a disk, SELCH operation is 
mandatory. 

If the output device is a disk, including floppy, the output 
media must have been previously formatted. The same rules 
regarding SELCH operation apply to the output device. 
Additionally, the output device must be online and not write 

protected. 



3. LOADING PROCEDURES 

The Common KMD Cross Generator is available only on Multi-Media. 

3.1 Loading from a Multi-Media Magnetic Tape 

• Manually key the X'50" sequence shown below into memory. 



IIPSW DCX 8800,2000 

DC x'sooo^zciipsw) 

MMPSW DCX 8800,2000 

DC X'8000' ,Z(MMPSW) 

LOAD AL X'CF' 

B X'80' 



LOCATION 


CONTENTS 


0030 


8800 


0032 


2000 


0034 


8000 


0036 


0030 


0038 


8800 


003A 


2000 


003C 


8000 


003E 


0038 


0050 


D500 


0052 


00CF 


0054 


4300 


0056 


0080 


0078 


85A1 




or 8540 


007A 


0000 


007C 


0000 


or 007C 


00F0 



Magnetic tape device address/ 
output command (HPTD) 



If no SELCH 
SELCH address 
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• Select address X'50' and execute. The, Multi-Media loader is 
loaded into memory. The magnetic tape automatically rewinds 
and the loader starts. 



If the pro 
it halts w 
sequence 
If the pro 
Loader ou 
and regues 
025 on the 
Refer to 
publicatio 



cessor 


is equipped 


with a hex 


ith 'FF' on the 


display i 


number 


025 on the < 


display pan 


cessor 


does not have a hexade 


tputs 


an identifying messag 


ts sequence number 


input. Ty 


system console, fi 


allowed by 


the Multi-Media 


Diagnostic 


n number 06-176A15 


for more d 



adecimal display panel, 
ndicators. Enter the 
el and depress EXECUTE, 
cimal panel, the MMD 
e to the system console 
pe the sequence number 
a carriage return (CR). 
(MMD) Loader (32-Bit), 
etails. 



3.2 LOADING FROM A MULTI-MEDIA DISKETTE 



Manually key the X"50* sequence shown below into memory. 



LOCATION 


CONTENTS 


0030 


8800 


0032 


2000 


0034 


8000 


0036 


0030 


0038 


8800 


003A 


2000 


003C 


8000 


003E 


0038 


0050 


D500 


0052 


00CF 


0054 


4300 


0056 


0080 


0078 


C186 


007A 


0000 


007C 


0000 



IIPSW DCX 8800,2000 

DC X'8000' ,Z(IIPSW) 

MMPSW DCX 8800,2000 

DC X'8000' ,Z(MMPSW) 

LOAD AL X'CF" 

B X'80' 

Floppy device address/output command 



Put the diskette containing the Cross Generator in the input 
floppy drive. 

Select address X'50 1 and execute. The floppy media loader is 
loaded into memory. 

If the processor is equipped with a hexadecimal display panel, 
it halts with X'FF' on the display indicators. Enter the 
sequence number X'025" on the display panel and depress 

EXECUTE. 
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If the processor does not have a hexadecimal display panel, 
the floppy loader outputs an identifying message to the system 
console and requests sequence number input. Type the sequence 
number 025 on the system console, followed by a CR. Refer to 
the Floppy Diagnostic Loader/Generator Test Program (16-and 
32-Bit), publication number 06-225A15 for more details. 



3.3 LOADING FROM A MULTI-MEDIA DISK 

The Multi-Media disk pack is built in such a way as to be 
boot-loadable using the ALO or the LSU. This capability can be 
used on 16-bit or 32-bit systems. The following paragraphs 
describe the procedures. In all cases, the Multi-Media disk pack 
must be mounted and hardware write protected. 

On processors with displays: 

• Set up low memory in the same manner as loading an OS: 



LOCATION 


CONTENTS 


0030 


0000 


0032 


0000 


0034 


0000 


0036 


0050 


0050 


D500 


0052 


00CF 


0054 


4300 


0056 


0080 


0078 


1399 


007A 


C633 


007C 


B6F0 


007E 


0111 



Autoload instruction 



Paper tape device number/command 
Disk address and OS device code 
Controller address and SELCH address 
OS extension (.111 means MMD) 



If the system does not have an LSU or ALO, mount the OS boot 
load paper tape (03-074M17 for 32-bit systems or 03-098M17 for 
16-bit systems) in the paper tape reader. Select address 
X*30" and execute. If the system does have an LSU or ALO, 
only locations X'7A', X'7C', and X'7E' need be set up. Enable 
the LSU/AL0 and depress INITIALIZE. 

As soon as the Initial Program Load (IPL) is complete, X'FFFF* 
appears on the display panel. Disable the LSU or the ALO. 

Enter the sequence number '025' on the display panel and 
depress EXECUTE. 
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On processors without display (1620, etc.): 



Enable the IPL and depress INITIALIZE. Observe that the 
following is output to the system console: 



Nonextended Memory Extended Memory 

BASIC TEST COMPLETE BASIC TEST COMPLETE 
MEMORY OK MEMORY 00000-07FFF OK 

MEMORY 08000-OFFFF OK 



SERIES SIXTEEN CPUnnKB where nnKB is the memory size 
LOAD DSC1.002? 



Type the letter N on the system console. N means no. 
The system then responds with available devices: 



LOAD DEVICES 
DSC2 OK 
DSC1 OK 



ENTER DEVN.OSID 

• Enter the following: 

DSC1.111 

• The following should be output: 

MMDL-INPUT SEQUENCE NUMBER 

• Memory locations X'7A' through X'7E* have been set up by the 
IPL sequence with default values for the 10Kb removable 
platter. If necessary, modify these locations and reexecute 
from address X'4000'. 

• Type the sequence number 025 on the system console followed by 

a CR. 
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On processors without display (3200, etc): 

• Enable the IPL and depress INITIALIZE. Observe that the 
following is output to the system console: 

3200 LSU LOADER ROO-00 

DEVS 

WG85 

MGC5 

DS5R 

DS5F 

DS67 

D256 

FLPY 

OTHR 

DEVICE= 

• If the system has default addresses, enter DS5R; otherwise, 
enter OTHR and the applicable addresses. 



Example: 

DEVICE = OTHP 
DEV# = C6 
CODE = 33 
CTLR = B6 
SLCH = F0 

• The following should be output: 

VOL = MMD,FIIE = 

• Enter: 

0S32HDL2.111 

• The following should be output: 

MMDL-INPUT SFQUENCE NUMBER 

• Memory locations X'7A" through X'7E' have been set up by the 
IPL sequence with default values for the 10Mb removable 
olatter. If necessary, modify these locations and reexecute 

from address X'6000" . 

• Type the sequence number 025 on the system console followed by 
a CR. 
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4. PROGRAM EXECUTION 

When loading is complete, refer to Appendix A and set up the 
console and log device parameters if other than the default 
PASLA/VDU is desired. Select the program start address, X'AOO', 
and begin execution. Observe that the following title is output 
to the console device: 



COMMON MMD CROSS GENERATOR 06-252RXX 
* 



After the program title has been output, an asterisk (*) operator 
prompt character is output to indicate that the program is ready 
to receive operator commands. Refer to Appendix B for additional 
operator console instructions. Appendix C summarizes the 
possible commands. 



4.1 INPUT DEVICE SELECTION 

Regardless of the media used to load the Cross Generator itself, 
the input device defaults to magnetic tape device address X'85' 
with SELCH operation disabled. If this is the desired input 
configuration, no commands are required. 



4.1.1 Magnetic Tape Input 

Use the INDEV option to specify the device address of the MMD 
master input magnetic tape. 



Example: 



INDEV 95 Selects magnetic tape address X'95' 

INDEV 85, FO Selects magnetic tape address X'85* 

on SELCH X * FO ' 



The SELCH address can be individually specified using the SELCH1 
option. A value of zero causes the program to bypass the SELCH 
and use sense status program sequences with the magnetic tape. 



Example: 



SELCH1 Bypass SELCH operation. 

SELCH1 F1 Use SELCH X'FV for data transfers, 
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4.1.2 Floppy Diskette Input 

Use the INDEV option to specify the input floppy address. 

INDEV C1 



Use the IDRIVE option to select the input drive, 
are 0, 1, 2, or 3. 



Possible values 



IDRIVE 



U. 1.3 Disk Input 



Use the INDEV option to specify the device address, controller 
address, and SELCH address of , the HMD master input disk. 



INDEV C6,B6,F0 



X*C6' is the drive address. 
X'B6' is the controller address. 
X'FO' is the SELCH address. 



4.1.4 Programming Notes 

It is not necessary to tell the program what kind of device will 
be used for input. That determination is made automatically 
based on thp device numbers provided by the INDEV command. If 
the input device is a disk, the kind of disk (10Mb, 13.5Hb, 80Mb, 
or 300Mb) is also automatically determined. 



4.2 OUTPUT DEVICE SELECTION 

There is no default output device; therefore, a selection must be 
made. The output device must be online, at load point if 
applicable, and not write protected. 



4.2.1 Magnetic Tape Output 

Use the 0UTDEV option to specify the output device address. 

Example: 



0UTDEV 85 
OUTDEV C5,F1 



Selects magnetic tape address X'85' 
Selects magnetic tape address X*C5' 
ion SELCH X'FV 
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The SELCH address can be individually specified using the SELCH2 
option. A value of zero causes the program to bypass the SELCH 
and use sense status program sequences with the magnetic tape. 

Example: 

SELCH2 Bypass SELCH operation. 

SELCH2 FO Use SELCH X'FO* for data transfers. 

For magnetic tape output, the drive option specifies the type 
of magnetic tape unit. A value of specifies a standard 800 or 
1600 bpi unit. A value of 1 specifies an HPTD controller unit. 

4.2.2 Floppy Diskette Output 

If the input device is a floppy, the output device is also forced 
to be a floppy. In this case, no OUTDEV selection is required. 
The output device has the same device address as the input 
device. The drive selection is made according to the following 
example: 

Example: 

INDEV = C1,IDRIVE = OUTDEV = C1,0DRIVE = 1 

IDEIVE = 1 ODRIVE = 

IDEIVE = 2 ODRIVE = 3 

IDRIVF = 3 ODRIVE = 2 

Again, if the input device is a floppy, output device selection, 
including drive number, is made automatically by the program. 

If the input device is not a floppy, the OUTDEV option must be 
used to select floppy output. 

Example: 



OUTDEV C1 
Use the ODRIVE option to select the output drive, 
Example: 

ODRIVE 1 
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a. 2. 3 Disk Output 

Use the OUTDEV option to specify the device address, controller 
address, and SELCH address of the output disk. 



OUTDEV FC,FB,F2 X'FC" is the drive address. 

X'FB' is the controller address. 
X'F2' is the SELCH address. 



U.2,H Programming Notes 

It is not necessary to tell the program what kind of device will 
be used for output. That determination is made based on the 
device numbers provided by the OUTDEV command. If the output 
device is a disk, the kind of disk (10Mb, 13.5Mb, 80Mb, or 300Mb) 
is also automatically determined. 



<*.3 VOLUME NUMBER SELECTION 

If the output device is a floppy diskette, use the VOLUME option 

to specify which diskette in the set is to be generated. The 

default volume is number 1. The following list shows the present 
diskette complement. 



TITLE 

16-BIT TESTS VOLUME 1 

COMMON TESTS VOLUME 1 

COMMON TESTS VOLUME 2 

32-BIT TESTS VOLUME 1 

16-BIT TESTS VOLUME 2 

32-BIT TESTS VOLUME 2 

32-BIT TESTS VOLUME 3 



Note that the VOLUMF option equals the functional variation field 
in the diskette part number. The input magnetic tape or disk 
contains a volume key for every program so that the generator can 
pick out the required entries for the selected diskette. 

The volume option may also be selected as part of the BUILD or 
VERIFY commands. If the output device is not a floppy, the 
VOLUME option is ignored. 



NOTE 

If the input device is a floppy, there is 
no choice of output volume. 



VOLUME 


DISKETTE 


NUMBER 


PART NO. 


1 


06-250F01M86 


2 


06-250F02M86 


3 ■ ■ ' 


06-250F03M86 


4 


06-250FOUM86 


5 


06-250F05M86 


6 


06-250F06M86 


7 


06-250F07M86 
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4. 4 MEDIA BUILD 

Once the INDEV and OUTDEV options are established, the BUILD 
command causes duplication to begin. 

If the output device is a magnetic tape: 

1. The tape is initially rewound. 

2. The two boot loaders are written, followed by two file marks. 

3. The first program to transfer is sought on the input device. 

4. The output magnetic tape is given one backspace file mark 
command . 

5. The Program Definition Block (PDB) is read from the input 
device. A message line constructed from information in the 
PDB is output to the list device, showing the progress of the 
generator. The program definition is then written to the 
output device. 

6. The actual program image is read from the input device and is 
copied to the output device. As many as 1,024 bytes are 
transferred at one time. 

7. When the complete image has been transferred, two file marks 
are written to the output tape. 

8. The next program to transfer is sought on the input device 
and the sequence repeats from Step 4. 

See Section 6 for details of Multi-Media magnetic tape format. 
If the output device is a floppy disk: 

1. The diskette capacity is determined. If fewer than 1,941 
logical records (each logical record is 128 bytes) are 
available, the diskette is not usable. An advisory message 
is output, followed by an operator prompt. 

2. The directory is initialized and the boot loader program is 
written to records 5 and 6. 

3. The first program to transfer is sought on the input device 
and its PDB is read. 

4. A message line constructed from information in the PDB is 
output to the list device showing the progress of the 
generator. When complete, this listing shows the program 
complement of the finished diskette. 
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5. The actual program image is then read from the input device 
and copied to the output diskette. As many as 1,02U bytes 
are transferred at a time, but never fewer than 128 bytes. 

6. When the complete image has been transferred, the directory 
on the output diskette is updated. 

7. The next program to transfer is sought on the input device 
and the sequence repeats from Step 4. 

See Section 6 for details of Multi-Media diskette format. 
If the output device is a disk: 

1. The disk is initialized with an OS format volume discriptor 
and bit map. 

2. The first two entries on the input media, sequences 001 and 
002, are copied to the output disk. Each is expanded to 
resemble a linked OS. The first one is called 0S1 6MDL2. 1 1 1 ; 
the second one is called 0S32HDL2 . 1 1 1 . The OS format 
directory is then preset to show these two files plus a third 
file that begins at Cylinder 8 and extends for 12,000 
sectors. This third file is called MMD.DAT and represents 
the actual HMD library. The input device is then rewound. 

3. Cylinders 8 and 9 are initialized with zeros. Any defective 
sectors on Cylinders 8 or 9, or in the volume descriptor, bit 
map, or OS format directories cause the "defective media" 
message to be output. Cylinder 8 contains the MMD format 
directory. The program library starts in Cylinder 9. 

4. The first program to transfer is sought on the input device 
and its PDB is read. 

5. A message line constructed from information in the PDB is 
output to the list device, showing the progress of the 
generator. The PDB is then written to the output device. 

6. The actual program image is then read from the input device 
and copied to the output device. As many as 1,024 bytes are 
transferred at a time, but never fewer than 256 bytes. 

7. When the complete image has been transferred, the directory 
on the output disk is updated. 

8. The next program to transfer is sought on the input device 
and the sequence repeats from Step 5. 
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4.5 MEDIA VERIFICATION 

The steps involved in media verification are identical to the 
build sequence except that, instead of writing to the output 
device, the device is read and the data is compared to what 
should be there. It is not necessary to do media verification 
immediately after a build; several media can be built and then 
verified against a master. 



5. MESSAGES 



MESSAGE 
INVALID INDEV SPECIFICATION 

INVALID OUTDEV SPECIFICATION 

INDEV/OUTDEV CONFLICT 

DEVICE UNAVAILABLE 

DEV ddd 

DEFECTIVE OUTPUT MEDIA 



DEVICE WRITE PROTECTED 



UNRECOVERABLE ERROR 
DEV ddd STA ss 

ERROR ON DIRECTORY UPDATE 
DEV ddd STA ss 

DIRECTORY READ ERROR 



EOV NOT FOUND 



DISKETTE FULL 



MEANING 

The nature of the input device 
cannot be determined. 

The nature of the output 
device cannot be determined. 

The input and output device 
are the same. 

Device number ddd is off-line 

or otherwise unavailable. 

The output diskette has more 
than two bad tracks and cannot 
be used; or the output disk 
has a defective sector in an 
OS critical area, or in 
Cylinders 8 or 9, and cannot 
be used. 

The output device is write 
protected. 

After five retrys, device ddd 
still exhibits bad status ss. 

Unrecoverable error exists on 
output diskette directory. 

Input disk directory is 
invalid or unrecoverable error 
exists on diskette directory 
read. 

Output disk or diskette 
directory does not have the 
proper end of volume marker. 

The current program will not 
fit on the output diskette. 
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MESSAGE 



DIRECTORY FULL 



MEANING 

An attempt was made to add 
more than 127 programs to the 
output diskette. 



DUPLICATE SEQUENCE NUMBER 



A non-unique sequence number 
has been encountered. The 
problem is with the input 

media. 



END OF VOLUME 



INVALID DIRECTORY ON OUTPUT DISK 



BOOT LOADER VERIFY ERROR 



NO SUCH SEQUENCE ON OUTPUT MEDIA 



PDB VERIFY ERROR 



VOLUME DESCRIPTOR VERIFY ERROR 



BIT MAP VERIFY ERROR 



OS IMAGE VERIFY ERROR 



VERIFY ERROR 



End of volume or end of file 
on the input media/ indicating 
the end of the job. 

Invalid directory means that 
the output disk is most likely 
not an MMD disk. This message 
occurs only on a VERIFY 
operation . 

This means a nonverify on the 
output magnetic tape boot 
loader section or the output 
diskette boot loader section. 

During a verify, the input 
program cannot be found on the 
output disk. 

This means a nonverify on the 
output media in a PDB. 

This means a nonverify in the 
output disk volume descriptor. 

This means a nonverify in the 
output disk bit map. 

This means a nonverify in one 
of the linked MMD loader 
images. 

This means a nonverify in a 
program image. 



5. MULTI-MEDIA FORMATS 

There are three different Multi-Media formats, depending on the 
media. Magnetic tape, including cassettes, are in one format; 
floppy diskettes are in another format; and the cartridge disks 
are in a third format. 



14 
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6.1 MAGNETIC TAPE HMD FORMAT 

Data on a magnetic tape is organized as a number of variable 
length records. See Figure 1. 

The first record on the tape is the boot loader that gets loaded 
by the autoload sequence. This code loads from X'80' to X'CF*. 
Upon completion, control is transferred to the boot loader which 
takes over to load the next record on the tape. That second 
record is an interim loader that occupies memory from X'lOO' to 
X*26F*. The interim loader determines whether the host processor 
is 16-bit or 32-bit, thereby knowing whether to load the first 
real program on the tape or the second one. If the host is 
16-bit, one forward file mark is issued to the magnetic tape. If 
it is 32-bit, two forward file mark commands are issued. After 
skipping the appropriate number of file marks, the interim loader 
loads the actual MMD Loader. Appendix E is a listing of the two 
boot loaders. 

The MWD Loader is on the tape in the same format as all the other 
library entries. The first record is the 52-byte PDB. All the 
information shown on the library printout is contained in this 
record. The interim loader uses only the low and high address 
values from the PDB. Memory image of the program follows the 
PDB. Subsequent records are all 256 bytes except for the last 
record, which may be less. The last record always has at least 
four bytes. A file mark separates every program entry on the 
tape. The occurrence of two file marks in a row signifies the 
end of the volume. 
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a* 



3375 



O 
C7\ 
I 

NJ 
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NJ 

at 
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> 

co 

o 



PROGRAM DEFINITION 
BLOCK 



FILE MARK 
MMDL LOADER 
BOOT LOADER 



FILE MARK 
16 BIT MMD LOADER 



PROGRAM DEFINITION BLOCK 

32 BIT MMD LOAOER 



ENO-OF-VOLUME 
DOUBLE FILE MARK 




INTERRECORD-J / ^ 

CAPS S 



s 

— i — r 



~i — r~i — r— i — i — i — r 



PROGRAM DEFINITION BLOCK 

24 25 26 27 28 30 



IB 21 

— I — r 



1 — r 



~i — i — i — i — i — i — i — i — i — i — r— t — i — i — i — r 



49.50 51 

mi 



PROGRAM NAME FIELD 
( FIRST 10 CHARACTERS ) 



REVISION LEVEL 
06 NUMBER 

SEQUENCE NUMBER 



PACKAGE REVISION 
F LEVEL /FDLG FLAG (HEX) 
REVISION EXTENSION 
POINT INDICATOR 
CHECKSUM (HEX) 
LOAD ENO ADDRESS (HEX) 
LOAD START ADORESS (HEX) 



PROGRAM NAME FIELD 
( LAST 20 CHARACTERS ) 



Figure 1 Multi-Media Diagnostic (MMD) Magnetic Tape Format 



The PDB contains the following information fields: 



INFORMATION 
FIELD 



MEANING 



SEQUENCE NUMBER 



06 NUMBEB 



This is the library sequence 
ASCII, for this program. 



number, in 



This is the test program part number, less 
the 06- prefix. For example, value in 
ASCII of 101 means 06-101. 



REVISION LEVEL 



PROGRAM NAME 



This is the 2-digit revision level of 
program object in ASCII. 



the 



LOAD START ADDRESS 



LOAD END ADDRESS 



CHECKSUM 



POINT INDICATOR 



REVISION EXTENSION 



This 30-byte field is separated into two 
fields of 10 and 20 bytes each, where the 
descriptive name for the program in ASCII 
is found. 

This field contains the hexadecimal 
address of the first byte of the program. 
Up to six digits are allowed. 

This field contains the hexadecimal 
address of the last byte of the program. 
It is always an odd address, and the 
difference between start and end 
addresses, modulo 256, is always greater 
than 3. 

This field contains a 1-byte Exclusive-or 
checksum of every byte in the program 
image. 

This field contains either zeros or X'2E*, 
an ASCII period. If zero, the REVISION 
EXTENSION field is also zero. If equal to 
a period, the REVISION EXTENSION field 
contains an ASCII digit from 1 through 9. 

This field is used to indicate that the 
program image has a patch incorporated in 
it. The object revision then reads R01.2, 
for example, to indicate that two patches 
are incorporated. This object revision is 
also indicated on change page patch 
information sheets in the individual test 
program packages. 
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INFORMATION MEANING 

FIELD 

F LEVEL/FDLG FLAG This byte is separated into two 4-bit 

fields. The first identifies the object 
functional variation. For example, a 
value of 0001 would identify 06-214F01. 
A value of zero states no functional 
variation. The second four bits identify 
the floppy diskette that this same program 
also appears on. A value of 00002 
indicates that this program does not 
appear on any diskette; a value of 00012 
states that this program appears on the 
F01 diskette. See Section 4.3. A value 
of 1111 indicates that this program goes 
on every diskette. 

PACKAGE REVISION This field identifies the revision level 

in ASCII of the individual test program 
package associated with this object. 



NOTE 

F LEVEL/FDLG FLAG and PACKAGE REVISION 
are not createable or modifiable by any 
of the present stand-alone Multi-Media 
generators. Special Multi-Medias built 
using the 06-177 or 06-225 generator will 
not contain these information fields. 



6.2 FLOPPY DISK HMD FORMAT 

Floppy disk is a directory device. It is not sequential like a 
magnetic tape; rather, there is a directory that tells the loader 
where each library entry begins. Refer to Figure 2. 

The diskette surface is divided into 77 concentric tracks. Each 
track is divided into 26 sectors of 128 bytes each. Each sector 
constitutes one logical record. Logical records are numbered 
sequentially from 1 to a maximum of 2,002. Any defective tracks 
are excluded from the sequence; that is, if Track 2 is defective, 
logical record number (LRN) 53 is assigned to Track 3 instead. 
This is handled by the microprocessor controlled interface. 

Track 0, LRN 1 and 2, is reserved for an OS volume descriptor 
(there is none on MMD). LRN 5 is where the boot loader starts. 
This boot loader is like the interim loader on the magnetic tape, 
except that it can be loaded directly with autoload instruction. 
When control is transferred to it, it first loads the rest of 
itself; it then determines if the host processor is 16- or 32--bit 
and, based on that determination, loads either program sequence 
number 1 or 2. Appendix F is a listing of the floppy boot 
loader. 
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LRN 32' FIRST 

PROGRAM 



LRN 9 "BOOT LOADER 
START 



LRN28«DIRECTORY 
START 



Figure 2 Floppy Disk HMD Format 



LRN 28, 29, 30, and 31 constitute the directory. LRN 32 is where 
the first program goes. The directory consists of two halfwords 
per entry, allowing for a maximum of 127 programs. The last two 
halfwords have to be zero to mark the end of the directory. The 
first halfword of an entry contains the library sequence number 
in hexadecimal. The second halfword specifies the LRN where the 
corresponding program starts. Refer to Figure 3. 



0S-252M95A15 ROU 



19 



3377 



O 





0001 0020 



0002 0061 



0003 00A2 
L_ 



STARTING LRN 
SEQUENCE 



FLOPPY DISK DIRECTORY FORMAT 



PROGRAM DEFINITION BLOCK FORMAT 



o 
ui 

NJ 
3 
VD 
Ul 

• 3» 
— k 
<J1 

30 
O 



to 



14 16 



0001 



0223 



0002 



I I I 



00006000 0000 7FFF 



I 1 1 



0040 



46 



16 BIT FDLG XO6-250R0 1 » 

t I I 1 I I » I « ' ' I I » Ml 1 I 1 I I I M I 1 !» I I I 



PROGRAM NAME IN ASCII 



SIZE IN LRN S 
END ADDRESS 
START ADDRESS 
REVISION LEVEL 
06-NUMBER 
SEQUENCE NUMBER 



Figure 3 Floppy Disk Directory and PDB Forsat 



Each program consists of some number of 128-byte LRNs. No 
partial LRNs are allowed. The first LRN of each program entry is 
the PDB. This FDB format is different from that used on magnetic 
tape. 

Unlike the magnetic tape PDB, all information in the floppy PDB 
is in hexadecimal, except for the ASCII name. Only the first 46 
bytes in the 128-byte LRN are used. The present Floppy 
Diagnostic Loader Generator does not allow more than 46 useful 
bytes; therefore, the additional information available in the 
magnetic tape PDB could not be included. 



6.3 CARTRIDGE DISK HHD FORMAT 

The cartridge disks are also directory devices. Instead of 
working with LRNs, as with floppy, the generator uses track, 
head, and sector number to identify areas on the disk. These are 
also translated into logical block addresses for use in the OS 
format part of the disk. The terms "track" and "cylinder" are 
often used interchangeably. A cylinder represents the same track 
on each recording surface of the disk assembly. There may be two 
or more recording surfaces, each with its own record/playback 
head. In practice, software writes a complete cylinder — Track 
0, Head 0; then Track 0, Head 1 -- before stepping to the next 
cylinder. This is done for timing reasons. It is faster to 
switch heads than to seek another track. 

The generator builds the disk so that it can be boot loaded using 
the same LSU or ALO used to boot load an OS pack. This means 
that the first few cylinders have to be initialized to resemble 
an OS initialized pack. The generator puts the following items 
on the pack: 



• Volume descriptor, one sector 

• Bit map, many sectors 

• OS directory, one sector 

• OS inverted list, one sector 

• OS secondary directory, one sector 

• The program from the input media, whose seguence number is 

001, expanded to look like a TET'ed 16-bit OS. 

• The program from the input media, whose sequence number is 

002, expanded to look like a TET'ed 32-bit OS. 



Note that a program on MMD and the output of TET are both in 
image form, so the expansion involves filling in data to occupy 
Memory Location up to the actual start address of the input 
program. The OS boot loader loads memory upward from Address 0. 
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Table 1 summarizes the data and its location 
portion of the disk. 



in the OS format 



TABLE 1 OS DATA POSITIONS 



I III STARTING | | | 
I I I SIZE | LOGICAL | STARTING | NtHIBER OF I 


| ITEK | TIPF | SECTORS | ADDRESS | CYLINDER | HEAD I SECTOR | (SECTORS OSED) | 

I Volume | 13.5Kb | 1 | | | I l^""\ ^s^ \ 
I Descriptor j 10Kb | 1 | j | I | ^ V \ I -^^"^ I 
I I 80Kb I 1 I I I I | ^^\^ I 
I | 300Kb |1 | | | I \^^ ^V. I 


1 Bit | 13.5Kb I 26 I 1 I | | 1 | 12,512 I 
I Nap | 10Kb I 10 | 1 | C | | 1 | 12,384 | 
I I BOHb | 129 | 1 | | | 1 | 14,560 | 
I | 300Kb | 489 I 1 | | | 1 | 21,728 I 


I OS | 13.5 Kb I 1 | 27 | | | 27 |*-\ ^--^1 
1 Directory j 10Kb | 1 | 11 j | j 11 j ^\^^^ I 
I I 86Kb I 1 I 130 | | 2 | 2 | ,^^\ I 
I | 300Kb I 1 I 490 | | 7 | 42 | ^^ ^-*_ | 


I OS | 13.5Kb | 1 | 28 | | | ' 28 P"\. .J-^l 
I Inverted | 10Kb I 1 I 12 | j j 12 | ^^^""^ | 
I LJst | 80Kb | 1 | 131 | | 2 | 3 I ^^"-v. I 
I | 300Kb | 1 | 491 | | 7 | 43- l^-^ ^\^ | 


I OS | 13.5Kb | 1 | 29 | | | '29 |\. ---^I 
j Secondary j 10Kb | 1 | 13 | j I 13 j ^\/^^ I 
I Directory | 80Kb j 1 j 132 j j 2 | 4 j ^-^"\^ 1 
1 | 300Kb I 1 | 492 I I .7 I 44 I .^-"""^ \^^ | 


I First | 13.5Kb | 80 | 30 | | | 29 |*"\ ^^ I 
I OS | 10Kb | 80 | 14 ( | | 14 | ^\^^ | 
I Inage | 80Kb | 80 | 133 | | 2 | 5 | ,-^"\^ I 
I | 300Kb | 80 | 493 | | 7 | 45 | -*-"^ ^\^ | 


I Second I 13.5Kb | 112 | 110 | 1 | I 46 l\^ ^"\ 
I OS | 10Kb | 112 | 94 | 1 | 1 | 22 | ^^^-^ I 
I linage | 60Kb | 112 | 213 I | 3 I 21 | ^-^"\ ! 
I | 300Kb I 112 | 573 | | 8 I 61 l^-""^ ^\l 


| Third File | 13.6Kb | 12,194 | 122 | 3 | | 30 |^">L ^-^1 

I Actual HKD | 10Kb | 12,178 | 206 | 4 | | 14 | \^^ | 
I Library I 80Kb I 14,235 | .325 | 1 | | 5 I ^-"^ s \ I 
I | 300Hb | 21,043 | 685 | | 10 | 19 | s^ ^vl 



Cylinder 8 on the disk is where the HMD format directory starts. 
See Figures 4 and 5. The present library needs only five sectors 
of directory. Each sector in the directory is divided into 32 
8-byte blocks. The first block of the first sector contains all 
E's to indicate a properly initialized HMD disk. Each subsequent 
block contains an ASCII sequence number, followed by a cylinder, 
sector, and head number where that program physically starts on 
the disk. In this example, Program Sequence 001 starts at 
Cylinder 9, Sector 0, Head 0. Program Sequence 002 starts at 
Cylinder 9, Sector 17, Head 0. 

When the HMD loader is asked to load Program Sequence 2, the disk 
is "seeked" to the appropriate starting point (Cylinder 9, Sector 
17, Head 0) and loading begins. The first sector of a program 
entry contains the PDB. Only the first 52 bytes of the 256-byte 
sector are used and the PDB format is the same as for a magnetic 
tape. The loader uses the load start and end addresses contained 
in the PDB to determine how many sectors to read. All transfers 
involve 256 bytes. No partial sectors are transferred. 
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THE FIRST BLOCK IS SET TO ALL E's 
INDICATING A PROPERLY INITIALIZED 
MULTIMEDIA PACK. 



PROGRAM 
SEOUENCE 
NUMBER 
IN ASCII 



HEAD 
SECTOR 
CYLINDER 



1 I 



PROGRAM 
SEOUENCE 
NUMBER 
IN ASCII 



I L 



HEAD 
SECTOR 
CYLINDER 



Figure 5 Multi-Media Diagnostic (HMD) Disk Directory Format 



APPENDIX A 
USER DEVICE DEFINITION 



ASCII INPUT/OUTPUT DFVICE SUPPORT 

The executive of the program uses the concept of console I/O 
device and list device. The console I/O device is an interactive 
device which is capable of logging messages and accepting 
commands and other user input. When the executive is accepting 
input from the user, or sending messages to the user, the console 
device is used. When the test program is running, the list 
device is used for logging messages. 

10 HALFWOPD CONTROL OF I/O DEVICE SELECTION 

The list device and console device are specified to the executive 
by the contents of the halfword "10" at 0RIGIN1+X ■ 10* (normally 
X'0A10'). The interpretation of this data is detailed in Table 
A-1. The executive allows only the identifiers shown and changes 
illegal identifiers to X'OV. 



TABLE A-1 INPUT/OUTPUT IDENTIFIERS 



7 

10 | CONSOLE DEVICE IDENTIFIER 

X'OV - VDU on PASLA/PALH 
or COMM MUX 
interface 

X'02* - Device on current, 
loop interface 

X'03' -- Reserved - Changed 
to X'01 • 



X'04' -- Device on PASLA/ 
PALM or COMM MUX 
interface 

X'05* - VDU on micro-I/0 
bus interface 



15 



LIST DEVICE IDENTIFIER 

X'OV - VDU on PASLR/PALM 
or COMM MUX 
interface 

X'02* - Device on current 
loop interface 

X'03* - Line printer on 
line printer 
interface 

X'04* - Device on PASLA/ 
PALM or COMM MUX 
interface 

X'05' - VDU on micro-I/O 
bus interface 
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I/O DEVICE ADDRESSES AND CHARACTERISTICS 

The device types implied by the values contained in the 10 
halfword are described in the following paragraphs. For each of 
the devices, including device type X » 03 ' , termination of an 
output line results in a carriage return (CR), line feed, and 
null character being output by the executive (X'OD', X'OA", 
X'OO* ). 

Devices identified by X'01' are assumed to be on a full-duplex 
asynchronous RS232C-type interface with addresses X'010* and 
X'011' for read and write sides, respectively. Examples of such 
interfaces are PASLA, PALM, and COMM MUX. The executive programs 
these devices for highest clock rate, seven data bits, two stop 
bits, and even parity. If the terminal is set up differently, 
location CRT2ND must be modified accordingly. Line break status 
is assumed to be indicated by framing-error status, with BUSY not 
active, and a zero character in the receive buffer. Offline 
status is assumed to be X'OC ( BUSY+EXAMINE STATUS). 

Devices identified by X'02' are assumed to be on a Teletype- 
compatible current loop interface with address X'002'. The 
executive programs these devices for unblocked mode (echoplex). 
Line break status is assumed to be indicated by framing-error 
status. Offline status is assumed to be X'01' (device 
unavailable). If this bit . is set, other status bits are 
"don't-cares". 

The list device identified by X'03' is assumed to be a line 
printer on a line printer interface with address X'062'. Offline 
status is assumed to be X'01' (device unavailable). If this bit 
is set, other status bits are "don't-cares". 

Devices indicated by X'04' are assumed to be attached as 
described for device type X'01', having the capability of 
transmitting DCU and DC2 transmission pause and resume requests. 
An example of such a device is the Perkin-Elmer Carousel 300 
terminal. 

Devices indicated by X* 05' are assumed to be on a micro-I/0 bus 
interface with address X'OCO*. These devices are programmed for 

blocked mode (full-duplex). Line break is assumed to be 

indicated by framing-error status which is not testable if a 

character is in the interface read buffer. Offline status is 

assumed to be X'01' (device unavailable). If this bit is set, 
other status bits are "don't-cares". 

The 10 halfword, described above, controls which device 
identifiers are used when the program is started. The default 
data in this halfword is X'0101'. If this value does not 
indicate the desired type of 1/0 device, of the types supported, 
the data in the 10 halfword may be modified before starting 
program execution. 
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If the default device addresses are not the addresses of the 
devices configured in the system, the table cf device addresses 
found in the source program, adjacent to the 10 halfword, may be 
modified. There are two halfword entries used for each type of 
device. The first is the read-side address, and the second is 
the write-side address. Both of these half words must be modified 
for any change required. If the device type has only one address 
Cfor example, a line printer), the device address must be placed 
in each of the two appropriate halfwords. The executive always 
uses the read-side address to test offline status. 
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APPENDIX B 
COMMAND/OPTION INPUT 



An asterisk (*) operator prompt is output to the console device 
to indicate that the program is waiting for user input. All 
option names must be typed in from the console, followed by a 
carriage return (CR) if there are no arguments, or if default 
arguments are to be used. If arguments are reguired, the option 
name must be followed by a space; then the desired argument or 
arguments are separated by commas. A CR must be used to signal 
the end of every option/command input. 

An invalid command/option name or option value causes a guestion 
mark (?) to be output, followed by a CR, line feed, and an 
asterisk (*) prompt. If, during command/option input, a mistake 
is made, the hash mark (#) can be typed to delete the entire 
command line. A CR , line feed, and new prompt is output. The 
left arrow (< — ) can be typed to delete the previously typed 
character, or a string of characters can be deleted by typing a 
left arrow for each character to be deleted. The backspace 
character and delete character are treated the same as a back 
arrow. 
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APPENDIX C 
OPTION/COMMAND SUMMARY 



Examine each option in the following list. If a default value is 
specified and is the value desired, no action is necessary; 
otherwise, the option must be entered. 

OPTION DEFAULT DESCRIPTION 

INDEV 0085 Specifies the MMD input device. One, two, or 

three arguments are allowed. If two 
arguments are input, the second argument is 
taken as the value for SELCH1. If three 
arguments are input, the second argument is 
taken as the disk controller address 
associated with the first argument drive 
address, and the third argument is taken as 
the value for SELCH1. 

SELCH1 0000 Specifies the SELCH to use with INDEV. Note 

that a value for SELCH1 can also be specified 
with the INDEV option. 

OUTDEV 0000 Specifies the output device. As with the 

INDEV option, one, two, or three arguments 
are allowed. If more than one argument is 
input, the last is taken as the value for 
SELCH2. 

SELCH2 0000 Specifies the SELCH to use with OUTDEV. Mote 

that a value for SELCH2 can also be specified 
with the OUTDEV option. 

IDRIVE 0000 Specifies the input floppy drive number if 

the input device is a floppy. Ignored if the 
input is not a floppy. 

0DRIVE 0000 Specifies the output floppy drive number if 

the output device is a floppy. The IDRIVE 
option is forced to a value equal to ODRTVE 
Exclusive-OE 1 when the input device is a 
Floppy. 

VOLUME 0001 Specifies the test program complement to be 

written to the output diskette. Values from 
1 to X'F' are accepted. Ignored if OUTDEV is 
not a floppy. 
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OPTION DEFAULT DESCRIPTION 

OPTION VA This command causes the program to display 

all options with their current value. 

BUILD VOLUME This command starts the media duplication 

process. If no argument is given, the value 
of the VOLUME option specifies the diskette 
to build, if OUTDEV is a floppy. If an 
argument is given, its value replaces the 
value of the VOLUME option to specify which 
diskette to build. 

VERIF/ VOLUME This command starts the media verification 

process. As with the build option, if no 
argument is given, the value of VOLUME 
applies. If an argument is given, it 
replaces the value of VOLUME to specify which 
diskette to build. 

COM N/A This command results in execution of a 

breakpoint instruction to return control to 
the console. If issued on a non-1600 or 3200 
machine, an illegal instruction results. 

BUILDV VOLUMF This command combines the BUILD and VERIFY 

functions. Media duplication is followed 
immediately by media verification. No 
listing is generated until the verify phase. 
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APPENDIX D 
SAMPLE COMMAND SEQUENCE 



INDEV 

SELCH1 

OUTDEV 

SELCH2 

IDRIVE 

ODRIVE 

VOLUME 



0085 
0000 
00C1 
0000 
0000 
0000 
0001 



*3UILD 3 



001 
002 
003 
004 
400 
413 
414 
449 
450 
451 
452 
453 
454 
455 
455 
457 
453 
500 
519 
520 



06-225F01R02 

06-225F02R02 

06-225F01R02 

06-225F02P02 

06-004 R09.1 

06-243 ROO 

06-243 POO 

06-173F01P02 

06-173F01R02.1 

06-173F02R02 

06-208 ROO 

06-198 ROO. 3 

05-200F01P01.1 

06-200F02R01 



06-201 
06-172 
06-171 
06-127 
06-196 
06-196 



.1 
R02 
R03 
P01 
P05.1 
R00.1 
ROO 



02 16-BIT FDLG 006000 007FFF 

02 32-BIT FDLG 006000 007FFF 

02 16-BIT FDLG (HIGH) OODOOO OOEFFF 

02 32-BIT FDLG (HIGH) OODOOO OOFFFF 

10 COMMON TELETYPE BCT OOOAOO 001FFF 

00 MODEL 550 VDU TEST (F01) OOOAOO 0025FF 

CO MODEL 550 VDU TEST (F02) OOOAOO 0025FF 

05 COMMON DISK TEST (16-BIT) OOOAOO 003FFF 

05 CMN DISK TEST (32-BIT) OOOAOO 003FFF 

05 COMMON DISK FORMATTER OOOAOO 003FFF 

00 COMMON 40 Mb FORMATTER OOOAOO 002BRF 
04 CMN FLOPPY TEST OOOAOO 003FFF 
02 S16 MSM DISK TEST OOOAOO 003FFF 

02 S32 MSM DISK TEST OOOAOO 003FFF 

03 COMMON MSM FORMATTER OOOAOO 003299 

07 COMMON MAG TAPE TEST OOOAOO 003FFF 
02 COMMON CASSETTE TEST OOOAOO 003CFF 

08 CMN PALS OFF-LINE TEST OOOAOO 0038FF 

01 CMN 360/370 INF (32-BIT) 000500 004471 
01 COMMON 360/370 INF TEST 000500 004471 



END OF VOLUME 
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APPENDIX E 
TAPE BOOT LOADER 
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PROG 



G = «NONE* 


ASS 


MAG 


TAPE 


HOOT 
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oooo 




0000 


0001 




0000 


0002 




0000 


0003 




0000 


0004 




0000 
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0000 
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0000 


0007 




0000 
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0000 


0009 




0000 


OOOA 




0000 


oooe 
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ooor 




0000 


OOOF 


oooon 






0080 
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0084 


2420 




0066 


D330 


no7o 


008A 


9423 




008C 
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nooa 


0090 


9019 




009? 


919c 




0094 


2282 




0096 


C850 


oioo 


0090 


2461 




009C 


C870 


n26F 


00A0 


C800 


0030 


O0A4 


2448 




0A6 


9E24 




00A6 


9A39 




)0AA 


9825 




i'OAC 


9A39 




OOAE 


9827 




00B0 


OLIO 


0079 


O0B4 


9E20 




0086 


2145 




00B8 


9D29 




I.0BA 


2081 




ODBC 


9E24 




OOBE 


0305 




OOCO 


9019 




00C2 


2081 




00C* 


QB15 


nooo 


O0C8 


C150 


nOCO 


oocc 


1*300 


0100 



03' 


-066RG8-00 132-BIT) 


2 


RO 


eau 





3 


Rl 


EOU 


1 


4 


R2 


EOO 


2 


5 


R3 


EOU 


3 


6 


R4 


EOU 


4 


7 


R5 


EOU 


5 


8 


R6 


EOU 


6 


9 


R7 


ECU 


7 


10 


Rfl 


EOU 


8 


11 


R9 


Eau 


9 


12 


RIO 


EOU 


10 


13 


Rli 


EOU 


11 


It 


R14 


EOU 


14 


15 


R15 


EOU 


15 


17 




ORG 


X'80' 


18 


MTBOOT 


LB 


Rl.X'78' 


19 




LIS 


R2.0 


20 




LB 


R3.X«70» 


21 




EXBH 


R2.R3 


22 




SRL 


R2,8 


23 


* 






24 


MTB0OT1 


SSR 


R1.R9 


25 




SLHUS 


R9.12 


26 


* 






?7 




BNCS 


HTBOOTl 


28 




LHI 


RS.X'100' 


29 




LIS 


R6.1 


30 




LHI 


R7.HTL0ADE' 


31 




LHI 


R0.X»30« 


32 




LIS 


R4.8 


33 




OCR 


R2.R4 


34 




WOR 


R3.R9 


35 


* 






36 




UHK 


R2.R5 


37 




WOR 


R3.R9 


38 




WHR 


R2.R7 


39 




OC 


RliX>79» 


to 




OCR 


R2.R0 


41 




BOS 


MTB00T2 


42 




SSR 


R2.R9 


43 




BTBS 


8.1 


44 




OCR 


R2.R"» 


45 




BR 


R5 


46 


MTB0OT2 


SSR 


R1.R9 
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BTBS 


8.1 


48 




RO 


R1.01R5) 


49 




BXLE 


R5.MTB00T2 


50 




B 


X'100' 



SET TAPE DEuICE ADORERS 

PICK UP SELCH ADDRESS 
(R2)s»SS00« OR '0O00SSOO' 
IF 16 BIT. (R2,R3)s'00SS.0000< 
IF 32 BIT. (R2)=(R3)stOOOOOOSS> 

status check 
no motion bit to carry 
ls byte of r9 * 00 
wait for no-motion 
load start aooress 
bxle increment 
x'100« load end address 
selch read comhano 
selch stop command 
selch stop 

ms byte of 3 byte address 
r3=selch address if 3? bit host 
ls 2 bytes of start aooress 
ms byte of 3 byte end aodress 
ls 2 bytes of end address 
mag tape write 

SELCH GO 

FALSE SYNC s NO SELCH 

ELSE* WAIT FOR SELCH NOT BUSY 

LOOP ON BUSY 

SELCH STOP 

BRANCH, START COOE JUST LOADED 

HAG TAPE STATUS 

LOOP ON BUSY 

READ A BYTE 

DECREMENT INOEX * LOOP 

GO TO LOAD START AORS 
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HAG TAPF BOOT LOADER 



nouu 






11100 


CB10 


fluoo 


oiot 


OAU 




U106 


0631 
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0310 


0078 


010C 


9019 




OlOf 


C390 


0010 


Jll? 


2233 




(lilt 


C8F0 


A023 


uia 


CBtO 


C9C0 


ullC 


U390 


0079 


11120 


C59o 


10A1 


>U2t 


2333 




0126 


9UF8 




0128 


90L8 




:'i2a 


9Eir 




vi2r 


9E1F 




112E 


9D19 




0130 


CS90 


nOlO 


(.'lit 


2233 




)13b 


U633 




I13B 
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9tlF 




013C 


9019 




ul3t 


C390 


nOlO 


01U2 


2233 





Jltt 


CBbO 


f]270 


'.U» 


CflfeO 


02A3 


Jl<*C 


9E24 




m« 


2190 




H150 


9A39 




015? 


9625 





32 
53 
St 
53 
56 

5S 
59 
60 
61 
62 
63 
6U 
65 
66 
67 
68 
69 
70 
71 
7? 
73 
7<t 
75 
76 
77 
70 
79 
PO 
81 
82 
83 

en 

85 

86 

87 

88 

89 

90 

91 

92 

93 

9t 

95 

96 

97 

98 

99 

100 

1C1 

102 

103 

104 



* THE FIRST PART OF THE BOOT LOADER RESIDES IN MEMORY 

* FROM LOCATION X«80« TO X'CF». IT IS LOADED BY THE 

* X'50* SEOUENCE. WHEN CONTROL IS TRANSFERRED TO IT, 
» THAT CODE READS IN THIS NEXT SECTION WHICH STARTS 

* AT ADDRESS X'100'. 



* ON INPUT t 



(RO)=SELCH READ COMMAND. X'30' 

(R1>*MAG TAPE DEVICE ADDRESS 

IR2USELCH ADDRESS 

<R3>=0 IF 16 BIT HOST 

(RS)rSELCH AOORESS IF 32 BIT HOST 

<Rt)=SELCH STOP COMMAND, X'08" 

<R6>=1 



MTLOADS 
HTLOAOSO 



MTLQADS1 
MTL0A02 



MTL0AD3 



MTLOADt 



ORS 

LHI 

AAR 

OAR 

LB 

SSR 

THI 

B2S 

LHI 

LHI 

LB 

CLHI 

BES 

SRHLS 

SRHLS 

OCR 

OCR 

SSR 

THI 

BZS 

tOAR 

BZS 

OCR 

SSR 

THI 

BZS 



LHI 
LHI 
OCR 
LIS 

WOR 
UHR 



X'100' 

Rl.X'BOOO' 

R1.R1 

R3.R1 

Rl.X'TB' 

R1.R9 

Rg.X'lO' 

MTLOADSn 

R15»X»A023> 

R14«X»C9C0' 

R9,X«T9« 

R9iX«Al» 

MTL0ADS1 

RI5»8 

RltiB 

Rl.Rlt 

R1.R15 

R1.R9 

R9.X'lO' 

MTL0AD2 

R3.R3 

MTLOADt 

R1.R15 

R1.R9 

R9,X»10« 

MTL0AD3 



FOR TARGET CHECK 

£0000 OR FFFFOOOO 

=0000 OR FFFFOOSS 

GET TAPE DEVICE ADDRESS 

MAG TAPE STATUS 

TEST FOR NO MOTION 

WAIT FOR IT 

FF COMMANDS 

OISARM COMMANDS 

GET REAO COMMAND 

800/1600 BPI7 

SKIP IF YES 

FF COMMANO FOR 6250 

OISARM COMMAND FOR 6250 

OISARM 

FORWARD FILE MARK 

NO MOTION? 

NO. WAIT 

CHECK HOST 

SKIP IF 16 BIT HOST 

ELSE, ANOTHER FORWARD FILE 

NO MOTION CHECK 

TAPE IS NOW IN POSITION AT THE 
BEGINNING OF THE FIRST OR SECOND 
PROGRAM. DEPENDING ON T«E HOST. 
NEXT, READ IN THE 92 RYTE 
PROGRAM DEFINITION BLOCK (l»OB> 



RS.BOOTFN-MTLOADS+X'IOO* START ADRS 

R6.BO0TFN-MTLOAOS♦X'133 , END AORS 

R2,Rt SELCH STOP 

R9.0 

R3.R9 MS BYTE OF 71 BYTE START ADHS 

R2.R5 LS 2 BYTES OF START ADRS 
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MAG TAPE BOOT LOADER 



015* 


9A39 




0156 


9826 




0156 


OE10 


0079 


015C 


9E30 




U15E 


21*5 




0160 


9D29 




0162 


2081 




ei6* 


9E2<« 




0166 


230A 




"168 


9D19 




016A 


2081 




016C 


DB15 


0000 


0170 


2651 




0172 


0565 




0174 


2266 




0176 


9D19 




0176 


2170 




c'17A 


9019 




,U7C 


C390 


nOlO 


oiao 


2233 




0183 


0390 


0282 


0186 


0350 


P283 


01BA 


9156 




018C 


0360 


028* 


0190 


0656 




0192 


0833 




019* 


233* 




0196 


3*79 




0196 


0675 




019A 


230? 




019C 


0875 




019E 


0657 




11A0 


D3A0 


0265 


01 AH 


0360 


0286 


01A6 


9466 




01AA 


D380 


0287 


01AE 


0666 




oirao 


0833 




01B2 


2333 




01B* 


3*BA 




01H6 


066B 




01B6 


0885 




OlBrt 


EC80 


(1010 


01BE 


C6B5 


OOFF 


01 C2 


056B 




U1C* 


2362 




01C6 


08B6 




01C6 


9E2* 





105 
106 
107 
108 
109 
110 
111 
112 
113 
lit 
115 
116 
117 
116 
119 
120 
121 
122 
123 
12it 
125 
126 
127 
126 
129 

iso 

131 
132 
133 
130 
135 
136 
137 
136 
139 
1H0 
HI 
142 
1*3 

i** 

1*5 
1*6 
1*7 
1*6 
1*9 
150 
151 
152 
153 
15* 
155 
156 
157 



MTL0A05 



MTL0AD6 



MTL0AD6A 
MTL0AD68 



MTL0A07 



WDF) 
WHR 

oc 

OCR 

60S 

SSH 

BTBS 

OCR 

BS 

SSR 

BTBS 

RO 

AIS 

CLAR 

UNLS 

SSR 

BTFS 

SSR 

THI 

BZS 

UB 

LB 

SLHLS 

LB 

OAR 

LOAR 

BZS 

EXHR 

OCX 

OAR 

BS 

LDAR 

LOAR 

LB 

LB 

EXBR 

LB 

OAR 

LOAR 

BZS 

EXHR 

DCX 

OAR 

LOAR 



R3.R9 

R2,R6 

R1.X»T9» 

R3.R0 

HTL0A03 

R2,R9 

8.1 

R2,R<» 

MTL0AD6 

R1.R9 

8.1 

R1,0(R5) 

R5.1 

R6.R5 

MTL0A05 

R1.R9 

7,0 

R1.R9 

R9.X»10» 

MTL0AD6 



MS BYTE OF 5 BYTE END AORS 

LS 2 BYTES OF END ADDRESS 

START TAPE 

SELCH GO 

SKIP IF FALSE SYNC 

ELSE WAIT FOR SELCH 

TO Go NON-BUSY 

THEN STOP THE SELCH 



MAG TAPE STATUS 

WAIT FOR NON-BUST 

READ 

BUMP INDEX 

DONE? 

NO, LOOP 

FINAL STATUS 

HANG ON ERROR 

TRANSFER COMPLETE 

WAIT FOR NO MOTION 

WAIT FOR NO MOTION 

R9,BOOTPN-MTLOADS*X'100'+16 

R5,BOOTCN-MTLOADS+X'100 , +19 

R5,8 POSITION BITS 16-23 

R6.BOOTFN-MTLOADS*X'100'+20 

R5.R6 (R9.R5)=PR0GRAM START ADDRESS 

R3.R3 TEST HOST 

MTL0A06A SKIP IF 16 RIT 

R7.R9 IR7)r'00XXO0OO» 

3*79 

R7.R5 «R7)='0OXXYYZZ» 

MTL0AD6B 

R7.R5 SAVE START ADDRESS 

R5.R7 <R5)=START ADDRESS 

RIO «BO0TEN-MTLOADS*X • 100 • +21 

R6 ,BOOTFN-HTLOADS+X * 100 ■ +22 

R6.R6 

RB .BOOTEN-HTLOADS+X ' 100 • +23 

R6,R8 <RlO,R6>=LOAD ENO AOORESS 

R3.R3 TEST HOST 

MTL0AD7 SKIP IF 16 SIT 

RU»RlO <Rll)s«OOXX0OOO' 

3*BA 

R6.RU 

R6.R5 



SRL R8.16 

LHI R11.2S5(R5> 



MTL0A07A 



CLAR 
BNLS 
LOAR 
OCR 



R6.R11 

MTL0AD7A 

R11.R6 

R2.R* 



(Rfi)s'OOXXYYZZ' 

start aors 

yyzz or ooxxyyzz 

if 16 bit host. irs, r9i«0000, yyzz 

if 32 bit host, (r6) =0ooo0oxx 

start address + 255 equals 

eno address for this record 

compare to eno aooress 

skip if not less 

if yes, usf real end adoress 

selch stop 
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PACE <t 16|<HH»3 09/50/81 



OlCA 


9A39 




nice 


9625 




ulCE 


9A3A 




nioo 


962B 




0102 


DE10 


n079 


01D6 


9E20 




oms 


2145 




:)1DA 


9D29 




01DC 


2061 




010E 


9E24 




01E0 


2308 




!)1E2 


9D19 




UEt 


2061 




"1E6 


DBI 5 


nOOO 


01EA 


2651 




( 1EC 


05B5 




U1EE 


2266 




01F0 


D390 


n079 


rilFi* 


C590 


nOAl 


G1F8 


2334 




01FA 


9019 




UlFC 


2i2n 




01FE 


2305 




0200 


9019 




0202 


C390 


n040 


0206 


2138 




0208 


9095 




020A 


2260 




020C 


C65B 


nOOl 


0210 


0556 




1212 


4260 


nlBfl 


0216 


0657 




0216 


24A0 




021 A 


D3B7 


nooo 


T21E 


U7AB 




022U 


2671 




f.22? 


0567 




022t 


2265 




u22f. 


9D19 




H22B 


C390 


nolo 


U22C 


2233 




j22E 


C87o 


0038 


n23? 


0390 


0079 


u?3fc 


Cb90 


00A1 


0236 


2333 




D23C 


C870 


nOEO 


0240 


9E17 




0<i l 42 


9019 




0244 


C390 


noio 


0248 


2233 




(I24A 


0370 


0266 


024L 


US7A 





156 




WOR 


R3.R9 


MS BYTE OF ADDRESS 


159 




HHR 


R2.R5 


OUTPUT START AORS 


160 




UOR 


R3.R10 




161 




HHR 


R2.R11 


OUTPUT END AORS 


162 




OC 


R1,X«79» 


HAG TAPE START 


163 




OCR 


R2.R0 


SELCH START 


16* 




BOS 


HTLOADB 


SKIP IF FALSE SYNC 


165 




SSR 


R2.R9 




166 




BTBS 


6.1 


WAIT ON SELCH BUSY 


167 




OCR 


R2.R4 


SELCH STOP 


166 




BS 


HTL0A09 




169 


MTL0AD6 


SSR 


R1.R9 


HAG TAPE STATUS 


170 




BTBS 


8,1 


LOOP ON BUSY 


171 




RD 


R1.0CR5J 


READ BYTES 


172 




AIS 


R5.1 


BUMP ADDRESS 


173 




CLAR 


R11.R5 


OONE CHECK 


17<t 




BNLS 


HTLOAOa 


LOOP ON RECORD 


175 


HTL0AD9 


LB 


R9.X'79« 


GET READ COMMAND 


176 




CLHI 


R9tX'Al« 


800/1600 9PI? 


177 




BES 


MTL0AD9B 


SKIP IF YES 


178 


MTL0A09A 


SSR 


R1.R9 


6250 STATUS 


179 




BTCS 


2,HTLOA010 


DONE IF EOF 


180 




BS 


HTL0AD9C 


ELSE KEEP READING 


181 


MTL0A09B 


SSR 


RliR9 




162 




TH1 


R9.X'40« 


EOF? 


183 




BNZS 


HTLOA010 


DONE IF YES 


184 


HTL0AD9C 


SRHLS 


R9.5 


NO NOTION CHECK 


185 




BNCS 


HTL0A09 


WAIT FOR IT 


166 




LHI 


R5.KR11) 


NEXT START ADRS 


187 




CLAR 


R5tR6 


COMPARE TO ENO ADDRESS/ 


IBS 




BL 


HTL0A07-«TL0AnS*X" 


100' LOOP 


189 


HTL0A010 


LOAR 


R5.R7 


START AODRESS 


190 


* 






<R6)=EN0 ADDRESS 


191 




LIS 


RlO.O 


CHECKSUM ACCUMULATOR 


192 


MTlOAOll 


LB 


Rll«0(R7) 




193 




XAR 


R10.RH 


CALCULATE CHECKSUM 


194 




AIS 


R7.1 




195 




CLAR 


R6.R7 




196 




BNLS 


HTL0A011 




197 


MTL0AD12 


SSR 


R1.R9 




196 




THI 


R9,X'10« 


NO MOTION CHECK 


199 




BZS 


HTL0AD12 




200 




LHI 


R7,X'36« 




201 




LB 


R9.X«79» 


GET READ COMMAND 


202 




CLHI 


R9.X'A1» 


600/1600 BPI7 


203 




BES 


HTL0AD1S 


SKIP IF YES 


204 




LHI 


R7iX'E0' 


RU COMMAND FOR 6250 


205 


MTL0AD13 


OCR 


R1.R7 


REUINO THE TAPE 


206 


MTL0A014 


SSR 


R1,R9 




207 




THI 


R9.X»10» 


NO MOTION CHECK 


208 




BZS 


NTL0A014 




209 




LB 


RT.BOOTrN-MTLOADS+X'lOO'+a* 


210 




CLAR 


R7.R10 


CHECK CHECKSUM 



F.-I4 
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PACE S 16I*H»S<»3 09/50/61 



MAG TAPE ROOT LOADER 



0250 


0335 




0252 


CB10 


nOEE 


.'256 


2<*A1 




1258 


C6B0 


O040 


025C 


9EAB 




. 25E 


9AA1 




D260 


24E0 




C2b2 


9AAE 




026"» 


9AAE 




,266 


9AAE 




'J 266 


C8B0 


noeo 


026C 


9EAB 




■126E 


2200 






0000 


026F 




0000 


0270 



(1270 



211 




BER 


R5 


212 




LHI 


Rl.X'EE' 


213 




LIS 


R10.1 


214 




LHI 


R11.X»»0« 


215 




OCR 


RIOtRll 


216 




WDK 


RIOtRl 


217 




LIS 


R14.0 


218 




WDR 


R10.R1H 


219 




WOR 


R10.RH* 


220 




WDR 


RIOtRl* 


221 




LHI 


RiifX'eo* 


222 




OCR 


RIOtRll 


223 




BS 


• 


224 


NTLOADE 


EOU 


• -1 


225 


BOOTEN 


E9U 


« 


226 




END 





60 IF OK 



DISPLAY IN INCREMENTAL "ODE 



NORMAL HOOE 

HAMS ON CHECKSUM ERROR 
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MAli TAPE HOOT LOADER 
ASSEMBLED BY r«L 03-066R08-00 132-RlT) 
STArfT OPTIONS; T=16,ERLST 



NO CAE 


ERRORS 


NO CAL 


FARMINGS 


P PASSES 




table spaee used : 


..HSTOP 


oono 


0270 


MIC 


0000 


0002 


liOOTEN 


oono 


0270 


1MPTOP 


0000 


OOOOR 


LAOC 


0000 


0001. 


•1TBOOT 


0000 


0080 


i-iTBOOTl 


0000 


0090 


MT30OT2 


0000 


ooco 


MTLOAOIO 


0000 


0216 


MTLOAOll 


0000 


021A 


UL0A012 


0000 


0226 


1TLOA013 


OOnO 


0240 


iTLOAOm 


0000 


0242 


MTLOA02 


0000 


012E 


HTEOA03 


oono 


013C 


"ITLOAOH 


OOnO 


01<t<* 


HTLOA05 


0000 


0166 


i-ML()AU6 


0000 


0X7A 


1TLOADM 


0000 


019C 


"ITLOA06H 


0000 


019E 


rlTL0AD7 


oono 


01B6 


1TL0AU7A 


OOnO 


01C8 


MTLUA08 


0000 


01F2 


1TL0AU9 


0000 


01F0 


WTL0A09A 


0000 


01FA 


"TL0AU9M 


oono 


0200 


'•TL0AD9C 


0000 


0206 


""TLOADE 


0000 


026F 


"TLOAOS 


oono 


0100 


.HTLOAOSO 


0000 


010c 


'iTLOAUSl 


OOno 


012A 


MURETOP 


oono 


0U00R 


"0 


oono 


0000 


-1 


0000 


0001 


vin 


0000 


0O0A 


Ml 


0000 


OOOB 


nm 


0000 


OOOE 


kl5 


0000 


OOOF 


«2 


0000 


0002 


WS 


0000 


0003 


W4 


0000 


000<* 


Hb 


0000 


0005 


•<fc 


0000 


0006 


R7 


0000 


0007 


KS 


0000 


0008 


*<* 


0000 


0009 



2K 
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0000R 





0000 


0080 


0080 


2440 




0082 


2303 




0084 


4000 




0086 


4010 




0088 


4040 


0022 


008C 


CR40 


001C 


0090 


0310 


0078 


0094 


0320 


0079 


0098 


C420 


0030 


009C 


C620 


00C7 


00A0 


C850 


OODO 


00A4 


C860 


01F7 


00A8 


9013 




OOAA 


2081 




OOAC 


091? 


0000 


OOBO 


2652 




0062 


0565 




00B4 


2286 




00B6 


9D13 




00B8 


2152 




OOBA 


230E 




OOBC 


C850 


0500 


OOCO 


4050 


0050 


00C4 


C«50 


OOCF 


O0C8 


4050 


0052 


OOCC 


9E12 




OOCE 


9013 




0000 


2221 




00O2 


4300 




0004 


0050 




00D6 


9E12 




00D8 


9013 




OOOA 


2221 




OODC 


C850 


01A8 


OOEO 


C860 


01C8 


00E4 


9814 




00E6 


2726 




00E8 


9E12 




OOEA 


9013 




OOEC 


2081 




OOEE 


0915 


0000 


00F2 


2652 




00F4 


0"565 




00F6 


2286 




00F8 


9013 




OOFA 


2152 




OOFC 


2305 




OOFE 


2626 




0100 


9E12 





20 
21 
22 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 

52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 



STARTAO 
BOOTST 



B00T1 



ORG X»80» 

EQU * 

LIS R4tO 

BS 800T1 

OCX 400 

OCX 4010 

STH R4,X»22» 

LHI R4.28 

LB R1,X»78» 

LB R2.X*79* 

NHI R2,X»30» REMOVE DRIVE SELECT BITS 

OHI R2.X»C7» FORM STOP COMMAND 

LHI R5«X»D0» START ADDRESS 

LHI R6.ENDAD-STARTAD*X»30» 



REGISTER SAVE POINTER <16BI T > 
LOAO OIRECTORV START LRN 
LOAD DEVICE AODRESS 



* LOAO REST OF BOOT LOADER 
B00T1B SSR R1»R3 



REOOBL 



BTBS 

RH 

AIS 

CLAR 

BNILS 

SSR 

BTI-S 

BS 

LHI 

STH 

LHI 

STH 

OCR 

SSR 

BFI3S 

dc:< 



RltO(R5> 

R5.2 

R6«R5 

BOOTIB 

R1.R3 

5.RED0BL 

STOPA 

R5.X«D500» 

R5tX*50» 

R5tX»CF» 

R5.X»52» 

R1.R2 

R1.R3 

2.1 

4300.0050 



STOPA OCR R1.R2 

IDLE SSR R1»R3 

BFI3S 2.1 

LOAI R5.LD8UF 

LDAI R6.LDBUF+32 

WHR R1.R4 

SIS P2.6 

OCR R1.R2 
* REAO DIRECTORY 

BOOT1C SSR R1.R3 

BTHS 8.1 

RH R1»0(R5) 

AIS R5.2 

CLAR R6.R5 

BNI.S BOOT1C 

SSR R1.R3 

BTFS 5. REDO 

BS STOP1 

REDO AIS R2.6 

OCR R1.R2 



WAIT ON BUSY 
READ HALFUORDS 

BUMP INDEX 

LOOP 

CHECK FINAL STATUS 

RETRY BOOT LOAD 



STOP 

WAIT FOR IDLE 
B X»50« 

STOP COMMAND 

LOOP ON NOT IDLE 
START ADORES? 

URITE LRN TO CONTROLLER 
FORM READ COMMAND 
ISSUE READ COMMAND 



LOOP 



ERROR, RETRY 



ISSUE STOP COMMAND 
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010? 


4300 


0008 


0106 


2626 




0108 


9E12 




010A 


9013 




010C 


2221 




010E 


C840 


4000 


0112 


0A44 




Oil* 


2115 




0116 


2470 




0118 


4840 


01AE 


011C 


2104 




our 


4*140 


01AA 


0122 


2472 




0124 


C850 


01A8 


0128 


C860 


0227 


012C 


9814 




012E 


2726 




0130 


9E12 




0132 


9D13 




013* 


2081 




0136 


D915 


0000 


013A 


2652 




013C 


0"565 




013E 


2286 




0140 


9013 




0142 


2152 




0144 


2307 




0146 


2626 




0148 


9E12 




014A 


9D13 




014C 


2221 




014E 


4300 


0124 


0152 


2626 




0154 


9E12 




0156 


9013 




0158 


2221 




015A 


2726 




015C 


2641 




015E 


4950 


01B0 


0162 


4050 


01A0 


0166 


4050 


01A6 


016A 


4860 


01B4 


016E 


9814 




0170 


9E12 




0172 


9013 




0174 


2081 




0176 


D915 


0000 


017A 


2652 




017C 


0565 




017E 


2286 




0180 


9013 





72 




B 


IDLE-STARTAD*X»80» 


GO TO IDLE 


73 


ST0P1 


AIS 


R2»6 




74 




OCR 


R1»R2 


ISUE STOP COMMAND 


75 




SSR 


R1»R3 




76 




BFBS 


2*1 


WAIT FOR IDLE 


77 




LHI 


R4,X»4000» 


TEST PATTERN 


78 




AAR 


R4.R4 




79 




BHS 


IS16 


BRANCH. 16 BIT HOST 


80 




LIS 


R7,0 


SET 32 BIT FLAG 


81 




LH 


R4»LDBUF*6 


32 BIT P06 POINTER 


82 




BS 


COM 




83 


IS16 


LH 


R4.LDBUF+2 


16 BIT POB POINTER 


84 




LIS 


R7.2 


16 BIT FLAG 


85 


COM 


LOAI 


R5.LDBUF 


START ADDRESS 


86 




LOAI 


R6.LDBUF+127 


END ADDRESS 


87 


C0M1 


WHR 


R1.R4 


PDB LRN TO CONTROLLER 


88 




SIS 


R2.6 




89 




OCR 


R1.R2 


ISSUE REAO COMMAND 


90 


* REAO 


PDB 






91 


B0OT10 


SSR 


R1.R3 




92 




BTBS 


8*1 


WAIT ON BUSY 


93 




RH 


R1*0<R5> 




94 




AIS 


R5,2 




95 




CLAR 


R6.R5 




96 




BNLS 


B00T10 


LOOP 


97 




SSR 


R1*R3 




98 




BTFS 


5.RE001 


ERROR RETRY 


99 




BS 


RDLDRGEN 


ELSE READ PROGRAM 


100 


RED01 


AIS 


R2.6 




101 




OCR 


R1.R2 


ISSUE STOP COMMAND 


102 




SSR 


R1.R3 




103 




BFBS 


2.1 


WAIT FOR IDLE 


104 




B 


COM-STARTAD*X»80» 


GO TO COM 


105 


ROLDRGEN AIS 


R2.6 




106 




OCR 


RlfR2 


ISSUE STOP COMMAND 


107 




SSR 


R1.R3 




108 




BFBS 


2.1 


WAIT FOP IDLE 


109 




SIS 


R2.6 




110 




AIS 


R4.1 




111 


RED03 


LH 


R5*LDBUF*8 


LOAD LOW 


112 




STH 


R5.B00TEN16-STARTAC 


i*X»80« 


113 




STH 


R5.800TEN32-STARTAD 


:♦ X» 80 • 


114 




LH 


R6.LDBUF+12 


LOAD HIGH 


115 




UHR 


R1.R4 


WRITE LRN TO CONTROL!. 


116 




OCR 


R1.R2 


ISSUE REAO COMMAND 


117 


* READ 


LOADER- 


■GENERATOR PROGRAM 




118 


800T1E 


SSR 


R1.R3 




119 




BTBS 


8.1 


LOOP ON BUSY 


120 




RH 


R1»9(R5> 




121 




AIS 


R5.2 




122 




CLAR 


R6.R5 




123 




BNLS 


BOOT1E 


LOOP 


124 




SSR 


R1.R3 





F-2 



06-252W95A15 R04 



FHD BOOT LOADER 



10:10:33 05/29/80 



0182 


2152 




0184 


2207 




0186 


2626 




0188 


9E12 




018A 


9013 




018C 


2221 




018E 


4300 


015E 


0192 


2626 




0194 


9E12 




0196 


9013 




0198 


2221 




019A 


0877 




019C 


2333 




019E 


4300 




01A0 


6000 




01A2 


4300 




01A4 


4000 




01A6 


6000 






0000 


01A7 




0000 


01A8 



125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 



RED02 



TURNOVER 



B00TEN16 
G032 

BOOTEN32 
ENOAD 

* 

LDBUF 



BTFS 

BS 

AIS 

OCR 

SSR 

BPBS 

B 

AIS 

OCR 

SSR 

Bl r BS 

LDAR 

BiJS 

OCX 

OCX 

OCX 

DCX 

OCX 

EOU 

EOU 



5.RED02 

TURNOVER 

R2t6 

R1»R2 

R1.R3 

2*1 

REDOS-STARTAD+X'SO* 

R2t6 

R1.R2 

R1«R3 

2fl 

R7tR7 

G032 

4300 

6000 

4300 

4000 

6000 

*-l 



ERROR RETRY 



ISSUE STOP COMMAMD 

WAIT FOP IDLE 
50 TO RED03 

ISSUE STOP COMMAND 

WAIT FOP IDLE 

TEST HOST FLAG 

BRANCHt 32 BIT 

ELSE TAKE If BIT 8RANCH 



RX3 BRANCH 
32 BIT START 



06-252K95A15 ECU 



F-3 



COMMON HMD CROSS GENERATOR 06-252R0»M96A13 
PROGs 0625202 ASSEMBLED BY CAL 03-066R08-00 (32-BIT) 
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1 SCRAT 

2 0625202 PROS COMMON MHO CROSS GENERATOR 06-252R0<»M96Ai3 

3 CROSS 

4 squez 4 

5 ERSQZ 

6 • SQCHK 

7 • 

A * COPYRIGHT C SY dFRkisj-ELSER CORPORATION JANUARY 1S90 

9 * REVISED JUNE. 1980 



11 


* 


12 


* 


13 


* 


11* 


* 


15 


* 


16 


* 


17 


♦ 


IS 


* 


19 


* 


20 


* 


21 


• 


22 


* 


23 


* 


24 


« 


25 


* 


26 


» 


27 


* 


28 


* 


29 


* 


30 


* 


31 


• 


32 


* 


33 


* 


34 


* 


35 


* 


36 


* 


37 


» 


36 


* 


39 


* 


10 


* 


41 


* 



THE COMMON MHO CROSS GENERATOR IS DESIGNED FOR MEOIA 

DUPLICATION. VERIFICATION. AND UPTAOlNG. 

POSSiBLE INPUT OR OUTPUT DEVICES ARE 800. 1600. OR 6250 BPl 

MAGNETIC TAPE! 10, Is. 5. 80. OR 300 MB 

DISK? OR FLOPPY DISKETTE. 

WHEN THE INPUT DEVICE IS A HAS TAPE OR A DISK AND 

THE OUTPUT DEVICE Is A FLOPPY. THE PROGRAM SELECTS 

THE INPUT LIBRARY ENTRIES TO BE TRANSFERRED TO THE 

FLOPPY, THIS SELECTION IS BASED ON The FLOPPY VOLUMr 

NUMBER OR FUNCTIONAL VARIATION WHEN DOING A FULL DUPLICATION. 

"HEN DOING SELECTIVE OUTPUT. USER IN^UT CHOOSES THE ENTRIES. 

THE VOLUME NUMBER CAN BE SPECIFItQ WITH THE "VOLUME" 

OPTION, OR IN CONJUNCTION WITH THE "BUILD" OR "VERIFY" 

COMMANDS. 

IF THE INPUT OEVICE IS A FLOPPY. THEN THE OUTPUT DEVICE 

IS FORCED TO ALSO BE A FLOPPY. VOLU«E OPTIONS ARE IGNORED. 

THE PR06RAM AUTOMATICALLY DETERMINES IF THE INPUT AND 

OUTPUT DEVICE IS A MAG TAPE. 10. 80, OR 300 MB DISK. 

OR A FLOPPY. 

WHEN THE OUTPUT DEVICE IS A DISK, IT IS CREATED IN SUCH A WAY 

THAT IT CAN BE BOOT-LOADED USING THE SAME LSU OR ALO USED 

FOR BOOT-LOADING AN O.S. DISK. THE DISK HAS AN O.S. FORMAT 

VOLUME DESCRIPTOR, BIT MAP, AND DIRECTORY. THE FIRST TWO 

ENTRIES IN THE DIRECTORY ARE "OS16MDL2. Ill" g "OS32HUL2.111". 

THESE ARE ACTUALLY THE 16 BIT MMO LOADER AND THE 32 BIT HMD 

LOAOER (LIBRARY SEQUENCES 001 AND 002). WRITTEN ON THE DISK 

TO RESEMBLE A TET'EO O.S. THE THIRD DIRECTORY ENTRY IS 

CALLED "HMD. OAT". IT STARTS IMMEDIATELY AFTER "0S32M01 2.111" AND 

EXTENDS TO 12,000 SECTORS BEYOND CYLINDER 8. THIS FILE IS 

THE REGULAR MMD FORMAT LIBRARY. 
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0000 






0006 






0008 






000A 






oooc 








0000 


0050 




0000 


0038 




oouo 


uom 



0000 


oooo 


0000 


oooo 


0000 


oooo 


oooo 


oooo 


0000 


oooo 


0000 


0001 


0000 


0001 


oooo 


oooo 


0000 


oooo 


oooo 


0001 


oooo 


0002 


oooo 


0003 


oooo 


0004 


oooo 


0005 


oooo 


0006 


oooo 


0007 


oooo 


000s 


oooo 


0009 


oooo 


OOOA 


oooo 


OOOB 


oooo 


OOOC 


oooo 


oooo 


oooo 


000E 


oooo 


OOOF 



43 

44 * 

1*5 JSTRUCl 

46 SOPTNAHE 

it? SCKROUT 

48 SVALU1 

49 SVALU2 
50 

51 * 

52 SBUFlEN 

53 MAXLINE 

OPTLINES 

* 

* 

* 

* 



73 
7i* 



NLSTe 

STRUC 
DS 

OS 
OS 
OS 
ENOS 



54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
66 
69 
70 

71 SR5BIN 

72 SOECTAB 
SDECHEX 
SOECASC 

75 SkBINT 

76 SCLOCK 

77 SOlSPLAt 

78 SBUFIO 

79 * 

80 RO 

81 Rl 

82 R2 

83 R3 

84 R4 

85 R5 

86 R6 

87 R7 

88 R8 

89 R9 

90 RIO 

91 Rll 

92 Rl2 

93 Rl* 

94 Rl 1 * 

95 Rl5 



EOU 80 
EOU 56 

EQU 20 
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OPTION TABLF STRUCTURf 
ASCII OPTION NAME 
Z<CHECK ROUTINE > 
16-8IT VALUE 
SPARE 



I/O BUFFER LENGTH 

LIST DEVICE MAXIMUM LINE COUNT 

MAX LINES FOR OPTION PRINTOUT 



CONDITIONAL ASSEMBLY PARAMETERS TO FOLLOW 
IN ALL CASES t EQUALS DELETE 

i eouals include 

FOR SCLOCK. FOLLOWING TIMERS INCLUDED 

1 EOUALS INCLUDE SOFTWARE 

2 EOUALS INCLUOE HARDWARE 

3 EQUALS INCLUOE BOTH 
TIMER LABEL IS "TIMER" FOR SOFTWARE AND 
HARDWARF, EXCEPT WHEN BOTH ARE INCLUDED. 
THEN LABELS ARE "STIMER" AND "HTIMER" 
RESPECTIVELY. 



EQU 
EQU 
EOU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 










1 

1 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 
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OOOOR 






OAOO 


4300 


0A5E 


0A04 






0A04 


4300 


0A5E 


0A08 


4300 


0A72 


OAOC 


4300 


0A72 





0000 0006 


0A10 


0101 


0A12 


0010 


0A14 


0011 


HA16 


0002 


OAla 


0002 


0A1A 


0062 


DA1C 


0062 


0A1E 


0010 


JA20 


0011 


nA22 


ooco 


0A24 


ooco 


0A26 


0000 


0A28 


0000 



0A2A 


0000 




DA2C 


0000 




0A2E 


0000 






0000 


0A2F 


0A30 


0000 






0000 


0A31 


0A32 


0000 




0A34 


A1A3 




1A36 


EE61 




0A38 


EfEB 




0A3A 


0044 




DA3C 


ooao 




0A3E 


0000 




0A40 


A1A3 




0A42 


F061 





97 




ORG 


X'AOO* 




98 


ORIGIN* 


B 


START 


START HERE FOR 32-BIT PROCESSOR 


99 




IFZ 


ADC-2 




100 


0RI6IN2 


B 


START 


START HERE FOR 16-8IT PROCESSOR 


101 


ORIGINS 


8 


START3 


SPECIAL 32-BIT PROCESSOR START 


102 


ORIGIN* 


B 


START4 


SPECIAL 16-BIT PROCESSOR START 


103 




ELSE 






107 




ENDC 






10s 


* 








109 










110 


* TEST 


' CONSTANTS 


* 


in 


* 








112 


SMAXlO 


ECU 


6 


> MAX VALID IDENTIFIER 


113 


10 


DC 


X'0101* 


I/O OEVICE(S) IDENTIFIER 


114 


* 








115 


PASLADR 


DC 


X'OOlO* 


PALSA/PALH READ ADDRESS 


116 




DC 


X«0011» 


PASLA/PALH WRITE ADDRESS 


117 


CLlFADR 


DC 


X'0002» 


CURRENT LOOP INTERFACE READ ADDRES 


118 




OC 


X»0002» 


CURRENT LOOP INTERFACE WRITE ADORE 


119 


LPADR 


DC 


X'0062« 


DUMMY FOR LINE PRINTER 


120 




DC 


X»0062» 


WRITE ADDRESS 


121 


C300ADR 


OC 


X'OOlO* 


CAROUSEL/PASLA READ ADDRESS 


122 




OC 


X«00il» 


CAROuSEL/PASLA WRITE ADDRESS 


123 


MlCROBUS 


OC 


X'OOCO' 


MICROBuS READ ADDRESS 


124 




DC 


X»0OCO« 


NICROBUS WRITE ADDRESS 


125 




OCX 





PROVISION FOR SPECIAL DEVICE <REaD 


126 




OCX 





WRITE AOORESS 


127 


* 








128 


* 10 = 


0101 


FOR CRT ON PASLA 




129 


* 


0202 


FOR TELETYPE, CAROUSEL 15/30 


130 


• 


XX03 


FOR LINE PRINTER 




131 


* 


0404 


FOR CAROUSEL 300 




132 


* 


0505 


FOR MlCROBUS 




133 


• 








134 










135 


* ETPE 


10 COMMANDS 




136 


* 








137 


CONRADR 


DCX 





CONSOLE DEVICE REAO ADDRESS 


138 


CONWAOR 


dcx 





CONSOLE DEVICE WRITE ADDRESS 


139 


* 








mo 


CONRD 


DCX 





CONSOLE READ/WRITE COMMANOS 


141 


CONWRT 


EflU 


CONRD+1 




142 


C0N2ND 


OCX 







143 


CONENRD 


eou 


C0N2N0+1 




144 


CONCHO 


DCX 





OUMMY HW AS POINTER 


145 


CRTRO 


DCX 


A1A3 


FOR CRT 


146 


CRT2ND 


OCX 


EE61 




147 


CLIPRD 


DCX 


E4E« 


* CURRENT LOOP INTERFACE PI 10/79 


148 


CLIF2ND 


DCX 


0044 


* * 


149 


LPWRT 


DCX 


ooao 


* LINE PRINTER 


150 




DCX 





OUMMY FOR LP 


151 


CARRD 


OCX 


A1A3 


* CAROUSEL 300 


152 


CAR2N0 


OCX 


F061 
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QA44 


8202 




JA46 


0000 




0A48 


00 




oa49 


23 




QA4A 


00 




0A4B 


00 




QA4C 


23 




OA40 


00 




OA^E 






0A4E 


0000 




0A50 


30F0 




0A52 


30F0 




0A54 


70F0 




0A56 


0000 




0A58 


0000 




DA5A 


7FFF 




0A5C 


8800 




0A5E 


48EQ 


0A52 


0A62 


C8F0 


0A72 


OA66 


DOEO 


0034 


0A6A 


OOEO 


0030 


OA6E 


0000 




0A70 


2200 




0A72 






0A7Z 






0A72 






0A72 


C800 


8000 


QA76 


4000 


155C 


0A7A 


ECOO 


noio 


0A7E 


4000 


1548 


0A82 


41E0 


1152 


0A86 


41F0 


1304 


OASA 


2400 




0A8C 


1*000 


1A16 


QA90 


i»000 


1688 


OA94 


4000 


1558 


0A98 


41F0 


OFBO 


0A9C 


tlFO 


OFBA 


OAAO 


1780 




0AA2 


48F0 


1566 


3AA6 


4230 


0CE2 



0000 OAAA 



153 


MREADC 


OCX 


8202 


154 




OCX 





155 
156 
157 


* 






C0NRQ2S 


OB 





158 


CRTR32S 


OB 


X'23» 


159 




OB 





160 




OB 





161 


CARRQ2S 


DB 


X»23« 


162 




OB 





163 




08 


* 


164 




OCX 





165 


PS« 


DCX 


30F0 


166 


PSW2 


OCX 


30F0 


167 


PSU3 


DCX 


70F0 


168 




DCX 





169 




DCX 





170 


STlHVAL 


OCX 


7FFF 


171 
172 
173 


scon 


OCX 


8800 


* 






174 


START 


LH 


R14.PSW2 


175 




LOAI 


R15.STARTA 


176 




STM 


R14.X>3*» 


177 




STH 


R14.X»30' 


178 




DCX 





179 




BS 


* 


180 


* 






181 


START3 


B 


STARTA 


182 




IFZ 


ADC-2 


183 


START4 


B 


STARTA 


184 




ENDC 




185 


STARTA 


LHI 


R0.X'8000« 


186 




STH 


ROiISITrRR 


167 




SRL 


R0.16 


186 




STH 


R0.HOD32 


189 


* 






190 




BAL 


R14.STCON 


191 




BAL 


RIStLCORE 


192 


STARTAl 


LIS 


RO.O 


193 




STH 


RO.NOSTOP 


194 




STH 


R0.N0MSG+«VALU1 


195 




STH 


ROtSBRKFLG 


196 




BAL 


R15»CRLF 


197 




BAL 


R15«*PRTNT 


198 




OAC 


TITLE 


199 




LH 


R15t»UAS0U 


200 




BNZ 


HALT9 


201 


* 






202 


• 






3AI 


.* vryQrtion ruDIIT RnilTTMr 


fcV »J 


■»■ nt ■ »'*'«'"' »*' 




204 


* 






205 


OPTIN 


EQU 


* 
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* HICROBUS 

DUMMY HW FOR HICROBUS 



CONSOLE REQUEST TO SEND CHD 

FOR CRT 

OUHHy BYTE FOR CLI 

♦ DUMMY BYTE FOR LP 

* CAROUSEL 300 

» DUMMY BYTE FOR MlCROBUS 

(ALIGN ON HW BOUNORY) 

RESERVED 

PSW USEO IN PROGRAM 

PSU USEO IN EXEC 

PSW USEO IN INTERRUPT TESTS 

RESERVED 

RESERVED 

TIMEOUT CONSTANT 

BREAKPOINT INSTRUCTION 



NEW PSW FOR ILLEGAL INTERRUPT 

AND NEW LOC 

FOR SERIES 16 

FOR SERIES 32 

TAKE AN ILLEGAL INSTRUCTION INT 

HALT IF II NOT TAKEN 

INSERT SPECIAL ROUTINE HERE 

INSERT SPECIAL ROUTINE HERE 



FORCE TITLE PRINT 

REGISTER PAIR SHIFTEO. SERIES 16 

SIGN EXTENSION. SERIES 32. 

SET UP CONSOLE 
SET UP LOW CORE 

RESET AUTO VER-IFY FLAG « 

FORCE »NOHSG 0' AT START 
NO BREAK KEY YET 

PRINT TEST PROGRAM TITLE 

WAS DEVICE SEEN OU 7 
PRINT TOTAL. TOTERR 
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OAAA 


41F0 


12BC 


OAAE 


41F0 


OFBO 


OAB2 


4820 


0A52 


OAB6 


4020 


155C 


OABA 


9512 




0A9C 


2400 




0A8E 


4000 


16DE 


0AC2 


4000 


1558 


0AC6 


41F0 


12BC 


OACA 


D340 


1636 


OACE 


41F0 


1054 


0AO2 


2541 




OftD4 


41F0 


1054 


OAOS 


2400 




OAOA 


484r 


1A16 


OAOE 


4000 


1A16 


OAE2 


4230 


17C8 


HAE6 


41Fo 


10CC 



UACB 


iei.il 


HUB 


OAEE 


C810 


1650 


0AF2 


261C 




0AP4 


2430 




3AF6 


4851 


0000 


OAFA 


021C 




OAFC 


0861 




OAPE 


0343 


360C 


<)802 


0356 


0000 


0B06 


2631 




OBOS 


C550 


0020 


OBOC 


233A 




OBOE 


0545 




0910 


203F 




0912 


2661 




0914 


C530 


n006 


ORIS 


208D 




P91A 


0343 


360C 


0B1E 


2631 




0920 


C540 


0020 


C?24 


2336 




0B26 


C540 


OOOD 


0B2A 


4230 


0AF2 


082E 


2731 




0930 


C510 


1604 


0B34 


4330 


OBEA 


0938 


C510 


16EC 


0B3C 


4330 


17C0 


0B40 


C510 


16F8 


0B44 


4330 


17C6 



206 




BAL 


R15«SETKB 


207 




BAL 


R15.CRLF 


208 


0PTIN1 


LH 


R2.PSW2 


209 




STH 


R2.1SITERR 


210 




EPSR 


R1.R2 


211 




LIS 


RO.O 


212 




STH 


R0,$LINCNT 


2l3 




STH 


ROiSBRlcpLS 


214 




BAL 


R15«SETKB 


215 




LB 


R4.AHSG 


216 




BAL 


R15'0UTCHR 


217 




LCS 


R4.1 


218 




BAL 


RIStOUTCHR 


219 




LIS 


R0,0 


220 




LH 


R4.N0ST0P 


221 




STH 


ROtNOSTOP 


222 




BNZ 


SVERIFY 


223 




BAL 


RIStSREAD 


224 
225 

226 


* 






* 






227 


* COMMAND DECODE 


228 


* 






225 


»l_OOK 


LuAI 


Ri2»0uESTN 


230 




LOAI 


RltOPT-$sTRUCl 


231 


SLOOK.O 


AHI 


R1.SSTRUC1 


232 


SLOOK.l 


LIS 


R3.0 


233 




LH 


R5,0<R1) 


234 




BHR 


Rl2 


235 




LOAR 


R6.R1 


236 


SL00K.2 


LB 


R4,SINBUF<R31 


237 




LB 


R5tO(R6) 


238 




AIS 


R3.1 


239 




CLHI 


R5,C» • 


240 




BES 


SL0OK.3 


241 




CLAR 


R4.R5 


242 




9NES 


SLOOK.O 


243 




AIS 


R6.1 


244 




CLHI 


R3.SCKR0UT 


245 




BLS 


SLOOK. 2 


246 




LB 


R4i*lNBUF(R3l 


247 




AIS 


R3.1 


248 


SL00K.3 


CLHI 


R4.C t 


249 




BES 


SLOOK. 4 


250 




CLHI 


R4iX*0D' 


251 




BNE 


SLOOK.O 


252 




SIS 


R3.1 


253 


SL00K.4 


CLAI 


Rl. OPTION 


254 




BE 


SOPTPRT 


255 




CLAI 


RliBUILD 


256 




BE 


9BUILD 


257 




CLAI 


Rl, VERIFY 


258 




BE 


avERIFY 
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ESTABLISH CONSOLE 

SPEC'O AS X*30F0« 

FORCE EXEC MESSAGE PRINT 

NO INT. REG SET 15 

NO BRK TERM SUEUEt NOMSG>0 

CLEAR LISTING LINE COUNT 

* 

ESTABLISH CONSOLE 

OUTPUT AN * TO INOICATE 

COMMAND MODE ESTABLISHED 

X'FF' 



TEST AUTO-VERIFY FLAG 

RESET FLAG 

VERIFY MODE 

GET INPUT RECORD 



PI 10/79 



Pi tn/T« 



6LQBAL ERROR ROUTINE 

TO START AT OPTION TABLE 

AOVANCE TO NEXT TABLE ENTRY 

CLEAR BUFFER INDEX 

END OF TABLE 1 

IF MINUS, THEN NO MATCH -> ERROR. 

START OF OPTION ENTRY 

GET INPUT BYTE 

GET OPTION NAME BYTE 

aovance to vext byte 

option name space in table ? 

branch: yes. 

input. option bytes hatch ? 

branch: no. 

index option pointer 

whole option name matched 7 

branch: not yet, 

get byte following option 

increment buffer pointe" 

option followed by space ? 

branch: yes. 

carriage return ? 

branch: no match 

point to carria6e return 

•option' chd ? 

branch: yes. 

•build* command? 

branch: yes. 

verify command? 

* 
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0B48 


C510 


1704 


ORtC 


1330 


17B6 


OB50 


C510 


16E0 


0B54 


4330 


0A5C 


0B58 


C540 


0020 


0P5C 


023C 




0B5E 


41E0 


OEBA 


?362 


48E1 


0006 


0866 


2331* 




0968 


01FE 




066ft 


274D 




0B6C 


023C 




0B6E 


4061 


0008 


0B72 


«300 


0AB2 



0876 


C360 


FFFE 


0B7A 


033F 




0B7C 


030C 




0B7E 


C360 


FCOO 


0B82 


023C 




3B84 


030F 




0B86 


40F0 


1A6E 


0B8A 


C360 


FCOO 


0B8E 


023C 




DB90 


2»E0 




0B92 


40E1 


0008 


0B96 


40E1 


OOOA 


0B9A 


40E1 


0014 


0B9E 


C5«0 


002C 


0BA2 


023F 




OBA4 


4061 


0008 


0BA8 


41EO 


OEBfl 


OBAC 


C360 


FCOO 


OBBO 


023C 




0BB2 


C5H0 


002C 


0BB6 


2138 




0BB8 


4061 


OOOA 


OBBC 


41E0 


OEBA 


OBCO 


C360 


FCOO 


0BC4 


023C 




OnCb 


26ic 




0BC8 


48F0 


1A6E 


ORCC 


030F 





259 




CLAI 


Rl.BUILOV 


BUILD 1 VERIFY COMMAND? 


* 


260 




BE 


3BUIL0V 


* 


* 


261 




CLAI 


Rl.CON 


'CON» CMD 7 




262 




BE 


SCON 


BRANCHJ YES. 




263 


* 










264 


* TO PROCESS COMMANOS WHICH MUST 


HAVE HEXADECIMAL INPUT VALUE 




265 


* 










266 


SL00K.9 


CLHI 


R4.C » 


OPTION FOLLOWED BY SPACE ? 




267 




BNER 


R12 


IF NOi ERROR. 




268 




BAL 


R14.0PTVAL 


GET OPTION VALUE IN R6 




269 




LH 


R14«SCKR0UT(RD 


GET A 1 OPTION CHECK ROUTINE) 




270 




BZS 


SL00K.6 


BRANCH: NO SPECIAL ROUTINE. 




271 




balr 


R15-R14 


LINK OPTION CHECK ROUTINE 




272 




SIS 


R4,X»00» 


TERMINATED BY CR ? 




273 




BNZR 


R12 


IF NO. ERROR. 




274 


SLOOK.G 


STH 


R6.1VALUKR1) 


STORE OPTION VALUE 




275 




B 


0PTIN1 


TO ACCEPT NEXT COMMAND 




276 


* 










277 


* 










278 
279 

280 


* 










» OPTION 


CHECK 


ROUTINES 






281 


* 










282 


ZEROnE 


THI 


R6»X'FFFE» 


IGNOHE LSB 




283 




BZR 


R15 


OKAY 




284 




BR 


R12 


ERROR RETURN 




285 


* 










286 


ADR 


THI 


R6.X»FCO0« 


R6 s 10 BIT DEVICE ADDRESS 




287 




BNZR 


R12 


ERROR RETURN 




288 




BR 


R15 


OK 




289 


* 










290 


AQR.XXX 


STH 


R15.R15SAVE 


* 




291 




THI 


R6,X«FC00« 


(R6> s 10 BIT DEVICE ADDRESS 




292 




BNZR 


R12 


« 




293 




LIS 


R14.0 


* 




294 




STH 


R14.SVALUKR1) 


CLEAR FIRST VALUE 




295 




STH 


R14»SVALU2(R1» 


CLEAR SECOND VALUE 




296 




STH 


R14t$VALUl+*STRUCl(Rl» CLEAR THIRD VALUE 




297 




CLHI 


R4,C»,« 


COMMA? 




298 




BNER 


R15 


EXIT IF NO, ONLY ONE VALUE 




299 




STH 


R6.»VALU1(R1) 


STORE THIS FIRST VALUE 




300 




BAL 


R1»»0PTVAL 


LOOK FOR SECOND VALUE 




301 




THI 


Rfi.X'FCOO* 


10 BITS? 




302 




BNZR 


R12 


ERROR IF NO 




303 




CLHI 


R4.C«.» 


COMMA FOLLOWS THIS ONE? 




304 




BNES 


ADR. 001 


IF NO. NO CONTROLLER ADDRESS 




305 




STH 


R6.»VALU2<R1) 


STORE CONTROLLER ADDRESS 




306 




BAL 


Rl»tOPTVAL 


GO GET SELCH VALUE 




307 




THI 


RSfX^FCOO* 


10 BITS? 




308 




BNZR 


R12 


ERROR IF OVER 




509 


AdR.001 


Aril 


Hlt*$TRUCl 


POINT TO SELCH OPTION 




310 




LH 


R1S.R15SAVE 


* 




311 




BR 


R15 


GO STORE SELCH VALUE 
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ORCE 


C3&0 FFFO 


0BO2 


033F 


OB04 


030C 


OR06 


48E0 15X8 


OBDA 


2333 


OBDC 


0876 


OBOE 


3*66 


OBEO 


4061 0008 


0BE4 


•♦071 OOOA 


0BE8 


030F 


OBEA 


C540 oOOD 


OBEE 


233A 


OBFO 


41E0 OEBA 


0BF4 


C560 0006 


0BF8 


038C 


OBFA 


0866 


OBFC 


033C 


OBFE 


D260 155B 


0C02 


•♦820 16DA 


OC06 


2332 


0C08 


01F2 


OCOA 


C830 165C 


OCOE 


2440 


QClO 


4040 16DE 


OC14 


2410 


OC16 


0823 


0C18 


0302 oOOO 


UC1C 


0201 35BC 


0C20 


2611 


9C22 


2621 


UC24 


C510 0006 


OC28 


2088 


0C2A 


C840 2020 


0C2E 


4040 35C2 



0C32 


4813 


0008 


0C36 


240tt 




0C38 


C820 


35C3 


0C3C 


41F0 


UF18 


0C40 


2400 




0C42 


0200 


35C7 


0C46 


4813 


OOOA 


0C4A 


2330 




0C4C 


240lf 





312 
313 

31* 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 



* 
LEVEL 



THJ R6.X»FFF0» 
BZR R15 

BR R12 



BIGVALUE LH 
BZS 



R14«H0032 
BIGVAL1 



LOAR R7.R6 
EXBR Rb t R6 



DCX 
BIGVAL1 STH 
STH 
BR 



3466 

R6t*VALUl(Rl> 

R7,SVALU2<R1) 

R13 



JR6) * INTERRUPT LEVEL HEX OIGIT 

RETURN TO LOOKS 



TEST HOST FLAG 
SKIP IF 16 BIT 

R7 sets the ls ig bits 

R6 GETS THE MS 16 BITS 
STORE MS 16 SITS 
STORE LS 16 BITS 

RETURN 



TO PROCESS INPUT COWHAND 'OPTION* 



SOPTPRT CLHI R4«X»0Q« 

BES SOPT.O 

BAL R14fOPTV»L 

CLHI R6.*HAXT0 

BNLR R12 

LOAR R6.R6 

BZR R12 

STB R6.I0SAWE+1 

LH R2.0PTI0N+SCKR0UT 

BZS OPTRTN 

BAlR R15<R2 

LDAI R3.0PT 

LIS R4.0 

STH R«.«LINCNT 

LIS R1.0 

LOAR R2.R3 

LB R0.01R2) 

STB RO.SOUTBUF(Rl) 

AIS Rl.l 

AIS R2.1 

CLHI Rl.SCKROUT 

BLS S0PT.2 

LHI R4,C» » 

STH R4»»0UTBUF**CKR0UT 

* 

* PROCESSING OPTIONS WITH 4-DIGIT HEX VALUES. 

* OPTION NAME ALREADY IN OUTPUT BUFFER. 

* 

$r»PT.3 



SOPT.O 



OPTRTN 
SOPT.A 

SOPT.B 

S0PT.2 



option icri 7 

branch: yes. 

no, get option oev. printout num. 

device number valid ? 

branch: no. 

option zero ? 

branch: yes, invalid input. 

chance the list device 

special printout routine 7 

branch: no. 

link user routine 

start of option table 

• 

CLEAR LISTING LINE COUNT 

START OF OPTION ENTRY 
GET OPTION NAME BYTE 
"OVE TO OUTPUT BUFFER 



WHOLE NAME MOVED 7 
BRANCH: NO. 
SPACES 



OPTION VALUE HALFWORD 



LH RliSVALUl«R3) 

LIS R0.4 

LOAI R2«S0UTHUF+8CKR0UT*1 BUFFER OFFSET 

BAL R15.HEXASC WRITE OPTION VALUE IN HEX 

LIS R0,0 MARK END OF MESSAGE 

STB R0.*OUTRUF+SCKROUT*5 INSERT TO BUFFER 

LH Rlt«VALU2(R3» SECONO VALUE? 

BZ S0PT.4 SKIP IF NONE 

LIS R0.4 n DIGITS 



C4 DIGITS 



* 
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0C4E 


C820 


35C8 


0C52 


41F0 


0F18 


0C56 


C800 


002C 


0C5A 


0200 


35C7 


0C5E 


2400 




0C60 


0200 


35CC 


0C64 


H1F0 


0FC8 


0C68 


41F0 


OFBO 


* 0C6C 


263C 




0C6E 


C330 


16B0 


1C72 


4380 


0AB2 


0C76 


D300 


155B 


0C7A 


0400 


0A1O 


0C7E 


4230 


OCOE 


0C82 


4800 


160E 


0C86 


C500 


0014 


0C8A 


4280 


0C14 


1C8E 


41F0 


10CC 


0C92 


0340 


360C 


0C96 


2740 




0C98 


4330 


0AB2 


0C9C 


26<*3 




0C9E 


4230 


OAEA 


0CA2 


4300 


OCOE 


nCA6 


274D 




ocas 


023C 




* OCAA 






OCAA 


41F0 


1304 


OCAE 


41F0 


1?EE 


0CB2 


41F0 


12C6 


OCB6 


2400 




0CB8 


4000 


1568 


OCBC 


4000 


156A 


OCCO 


41F0 


11E4 


DCC4 


2400 




0CC6 


4000 


155C 


OCCA 


48E0 


0A50 


OCCE 


48F0 


156C 


0CO2 


91F1 




OC04 


24F0 




GCD6 


48FF 


177C 


OCOA 


OOEO 


1538 


OCDE 


C200 


1538 




0000 


0CE2 


0CE2 


41FQ 


1274 


OCEs 


£336 




0CE8 


C810 


080F 


r.CEC 


9114 





392 




LOAI 


R2 , SOUTBUF+SCKROUT* 


6 WHERE IT GOES • 


393 




BAL 


R15«HEXASC 


CONVERT « 


394 




LHI 


RO,C».« 


comma * 


395 




STB 


R0.S0UTBUF+SCKROUT+5 SEPARATES TWO VALUES * 


396 




LIS 


RO.O 


HARK END OF MESSAGE * 


397 




STB 


ROtSOUTRUF+SCKROUT+10 * 


398 


S0PT.4 


BAL 


R15. SPRINT 


OUTPUT PRINT BUFFER » 


399 




BAL 


R15«CRLF 


00 CARRIA6E RETURN/LINE FEED « 


400 


SoPT.5 


AH I 


R3.SSTRUC1 


LENGTH OF TABLE ENTRY 


<»01 




CLAI 


R3,0PTEND2 


DONE ALL PRINTING OPTtONS ? 


•♦02 




BNL 


0PTIN1 


BRANCH: YES. 


"03 




LB 


RO.IOSAVE+1 


CURRENT LIST 10 


404 




CL8 


RO.IO 


SAME AS CONSOLE ? 


t05 




BNE 


SOPT.A 


BRANCH: YES. NO LINE CNT TEST. 


406 




LH 


RO.SLINCNT 


* * 


«*07 




CLHI 


RO.OPTLTNES 


COHPARE to page lihit * 


408 




BL 


SOPT.B 


BRANCH: SCREEN NOT FULL * 


409 




BAL 


R15»*REaO 


GET JCRJ OR ILF> TO CONTINUE 


410 




LB 


R4.SINBUF 


FIRST CHARACTER 


>*11 




SIS 


R4,X«0O« 


CARRIAGE RETURN ? 


4i2 




BZ 


0PTIN1 


BRANCH: YES. DONE. 


*13 




AIS 


R4,X«03« 


LINE FEED (X'OA'I ? 


414 




BNZ 


SL00K 


branch: no. attempt decode. 


415 
*16 
417 


S0PT.6 


B 


SOPT.A 


BRANCH: CONTINUE. 


* 'RUN* 


COMMAND HAS BEFN ENTERED 




418 


* 








419 


SRUNIT 


SIS 


R4,X»00« 


CARRIAGE RETURN ENTERED ? 


420 




BNZR 


R12 


BRANCH: INPUT ERROR. 


42! 




B 


SKEEP.3 


* *« 


422 


SKEEP.3 


BAL 


R15<LC0RE 


SET UP LOW CORE ** 


t23 


* 








4?4 




BAL 


R15»INIT 


LINK USER INITIALIZATION ROUTINF 


425 


INITRET 


BAL 


R15»SETLST 


SELECT LIST DEVICE 


•»26 




LIS 


RO.O 




427 




STH 


RO.TOTau 


RESET TOTAL 


•♦28 




STH 


RO.TOTPRR 


RESET TOTERR 


4 2 9 


SKEEP3 


BAL 


R15»TST0RK 


CHECK BREAK KEY 


430 




LIS 


RO.O 




H31 




STH 


RO.ISITrRR 


RESET ERROR FLAG 


»32 




LH 


R14»PSg 


SPEC'D AS X'SOFO* 


•♦33 




LH 


R15.BTESTN0 


BINARY TEST NUHBER 


4 34 




SLLS 


R15»LA0C 


CONVERT TO OFFSET 


"♦35 




LIS 


R15»0 


FORCE ZERO •* 


*36 




LDA 


R15tTESTSCR15» 


POINTER TO TEST HOOULP 


*37 




STH 


R14«NEWPSW 




*38 
439 
f40 




LPSH 


NEWPSW 


GO TO TEST, WITH INTERRUPTS ENABLED 


HALT9 


EQU 


* 


STOP MACHINE FOR ERROR PRINT 


441 




BAL 


R15«TST0U 


CHECK IF LIST DEVICE OFF-LINE 


IA M « 




e±1c* 


cwrD-y 


roaN/*u* nfj_i TMr Mnu 


-"»£ 




Di>« 


^r»li.^» r 




<f43 


HALT9A 


LHI 


R1,X»080F« 


»* 


444 




SLHLS Rlt* 


Rl * X'flOFO* 
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OCEE 


9501 




OCFO 


2207 






0000 


0CF2 


0CF2 


2400 




UCF4 


4000 


1566 


OCF8 


41F0 


OFBA 


OCFC 


1655 




OCFE 


41F0 


OFBA 


0002 


15A3 




0D04 


C840 


2020 


DO08 


4040 


35C0 


OOOC 


4040 


35C2 


0010 


2404 




D012 


C820 


35BC 


0016 


4810 


1568 


001A 


41F0 


0F18 


001E 


4310 


156A 


0022 


2628 




0024 


41F0 


0F18 


0028 


2400 




0^2 S 


0202 


0004 


002E 


41F0 


0FC8 


0032 


4300 


0A72 


0D36 






0036 


2401 




0D38 


OEOO 


154E 


U03C 


481F 


0002 


0040 


4811 


0000 


0044 


9411 




C046 


9801 




0O48 


481F 


0000 


..iDfC 


4811 


0000 


0050 


9411 




0052 


9601 




0054 


DEOO 


1540 


0058 


430F 


0004 



005C DOFO 35A8 
0060 41F0 OOAA 
0064 0D06 



445 
446 
447 
448 
449 
450 
t51 
452 
453 
454 
455 
456 
457 
456 
459 
460 
461 
462 
463 
464 
465 
466 
467 
uc o 

469 
470 
471 
47? 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
467 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 



EPSR 
BS 



R0,R1 
HALT9 



PASE 9 11:01:58 08/31/81 



STOP PROCESSOR, WHEN 'EXE/RUN' OEP 
CHECK IF LIST OEVICE ON-LINE. 



* LIST DEVICE WAS OFF-LINE. PRINT TOTAL, TOTERR 



* 
SKEEP7 



EQU 

LIS 

STH 

BAL 

OAC 

BAL 

OAC 

LHI 

STH 

STH 

LIS 

LOAI 

LH 

BAL 

LH 

AIS 

BAL 

LIS 



RO.O 

RO.SWASOU 

R15t$PRiNT 

NULLMSG 

R15i«PRtNT 

TOTNSG 

R4,C • 

R4,*0UTBUF*4 

R4<$0UTqUF+6 

R0,4 

R2.S0UTBUF 
Rl, TOTAL 

R15.HEXASC 
Rl. TOTERR 
R2.8 

R15.HEXASC 
R0,X'0o« 



BAL R15.3PRTNT 



B STARTA 

******************************** 
IFZ SDISPLAY-1 



RESET OU FLAG 

OUTPUT NULL STRING. CRL? 

•TOTAL TOTERR* 
SPACES 



DESTINATION 

CONVERT TOTAL 

DESTINATION 
CONVERT TOTERR 
CARRIAGE RETURN 
TO TERMINATE "ESSiSt. 
PRINT CONTENTS OF BUFFE«! 
TOTAL TOTERR 
XXXX YYYY 

PRINT TITLE, ACCEPT COMMAND. 
***** 



* 
DISPLAY 



LIS 
OC 
LH 
LH 

EXBR 

WHR 

LH 

LH 

EXBR 

WHR 

OC 

B 



R0,1 

RO.INCR 

R1.2IR15) 

Rl.OIRn 

R1.R1 

R0.R1 

R1.0(R15) 

Hl.O(Rl) 

R1.R1 

R0.R1 

RO.NORH 

4(R15) 



DISPLAY PANEL AOORESS 
INCREMENTAL NODE 
GET 2ND PARAMETER AOORESS 
GET DATA 

WRITE DATA 

GET 1ST PARAMETER AOORESS 

GET DATA 



WRITE DATA TO Dl< 
NORMAL MODE 
RETURN 



02 



* ************************************* 

ENDC 
* 

* ERROR ROUTINES (OVERRIOE NOmSG OPTION! 

* RETURN LINK R15I NO REGISTERS MODIFIED. 
* 

ERR STM R1S«*R15SAV SAVE LINK 

BAL R15.ERRC0M 'ERROR TTNN* 

DAC ERRC0H1 EXIT 
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0066 


DOFO 


35A8 


n06A 


41F0 


OOAA 


0D6E 


OEOC 




0D70 


ODDfc 




0072 


DOFO 


35AB 


0076 


41F0 


OOAA 


0D7A 


OEXE 




007C 


0006 




007E 


DOFO 


35A8 


1082 


"UFO 


OOAA 


CD86 


OEOC 




ODSa 


0E1E 




0D8A 


0006 




OOSC 


DOFO 


35A8 


0090 


OOEO 


1530 


0094 


41F0 


OOAA 


0098 


0E72 




D09A 


0006 




0D9C 


OOFO 


35A8 


OOAO 


<»lFo 


OOAA 


ooa4 


0E30 




0DA6 


OE50 




0OA8 


0006 




OOAA 


0000 


1900 


OOAE 


4810 


0A52 


0OB2 


9501 




0DB4 


teoo 


1590 


0DB8 


4000 


159A 


OOBC 


4000 


155C 


ODCO 


26F1 




C10C2 


C4F 


FFFE 


QDC6 


48CF 


0000 


ODCA 


48DF 


0002 


OOCE 


41E0 


OEOO 


0O02 


01EC 




0004 


01E0 




OD06 


2400 




ODDS 


4000 


155C 


ODDC 


2411 




OODE 


4010 


155E 


00E2 


6110 


156A 


0OE6 


2136 




ODES 


2511 




ODEA 


4010 


156A 



498 
499 


* 
ERRO 


STrt 


R15»*R15SAV 


500 




SAL 


R15«ERRC0H 


501 




OAC 


ERRD1 


502 




DAC 


ERRCOMl 


503 


* 






504 


ERRS 


STH 


RISiSRISSAV 


505 




BAL 


R15tERRC0H 


506 




DAC 


ERR SI 


S07 




OAC 


ERRCOMl 


508 


• 






509 


ERROS 


STr< 


R15«*R15SAV 


510 




BAL 


R15fERRcOH 


511 




OAC 


ERRD1 


512 




DAC 


ERRSl 


513 




OAC 


ERRCOMl 


514 


* 






515 


ERRL 


STH 


R15.SR1SSAV 


516 




STM 


R14.0L0PSH 


517 




BAL 


R15«ERRC0M 


518 




OAC 


ERRL1 


519 




OAC 


ERRCOMl 


520 


* 






521 


ERRALL 


STM 


R15.SR13SAV 


522 




BAL 


R15.ERRC0M 


523 




OAC 


ERRDSl 


524 




OAC 


ERRPL1 


5?5 




OAC 


ERRCOMl 


526 


• 






527 


* COMMON ERROR ROUTlNF 


528 


* 






529 


ERRCOM 


STH 


RO.ERRSAVE 


530 




LH 


R1.PSW2 


531 




EPSR 


ROiRl 


532 




LH 


RO.MTESTNO 


533 




STH 


RO.ETESTNO 


534 




STH 


RO.ISITFRR 


535 




AIS 


R15.ADC-1 


536 




NHI 


R15.0-A0C 


537 




LOA 


R12«0(Ri5> 


538 




LDA 


R13«ADC<R15> 


539 




BAL 


R14.ERR1 


540 




BALR 


R14.R12 


541 




BALR 


R14tR13 


542 


* 






543 


ERRCOMl 


LIS 


RO.O 


544 




STH 


RO.ISITFRR 


545 




LIS 


Rl.l 


546 




STH 


Rl.NOERR 


547 




AHH 


RltTOTERR 






nllTo 


rnarAHo 


546 




D"t»3 


i*nnv*i ic 


5u9 




LCS 


Rl.l 


550 




STH 


11.T0TERR 
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SAVE LINK 
'ERROR TTNN» 
•DEV 000 • 
EXIT 

SAVE LINK 
•ERROR TTNN' 
•STA SS' 
EXIT 

SAVE LINK 
•ERROR TTNN» 
•OEV 000» 
•STA SS f 
EXIT 

SAVE LINK 

STORE CALLER'S PSy. LOC 

'ERROR TTNN' 

•LOC LLLL« 

EXIT 

SAVE LINK 
•ERROR TTNN i 
•DEV ODD STA SS" 
•PSH PPPP LOC LLLL» 
EXIT 



STORE USER RE61STER SET 

SPEC'O AS X'30F0' 

OIS*BLE INT. a PROCESSOR LEVEL 

MASTER TEST NUMBER 

MOVE TO MESSAGE 

TO FORCE ERROR PRINT 



FIRST PARAMETER 
SECOND PARAMETER 
•ERROR TTNN' 
GO TO FIRST ROUTINE, 
SECOND ROUTINE, 



RESET ERROR PRINT FLAG 

SUPPRESS THAT PRINT 
INCREMENT TOTERR 
DDiUrU; ST TI L COUNTING, 
65^535 ERRORS REPQRTEn 



COMMON HMD CROSS GENERATOR 06-252R04H96A13 
EXEC - ETPE R05P1 



ODEE 41F0 1271* 

0DF2 4230 0CE2 

0OF6 D100 1900 

OOFA DXFO 35A8 

ODFE 030F 



OEOO 






OEOO 


DOEO 


35AC 


0E04 


C85o 


1594 


0E08 


4300 


OEBO 



OEOC 


OOEO 


35flC 


0E10 


2403 




0E12 


4810 


154A 


0E16 


41E0 


0E9C 


OEXA 


15D4 




0F1C 


15D0 




PE1E 


DOEO 


35AC 


0E22 


24l»2 




QE24 


D310 


154C 


HE28 


4lEo 


0E9C 


0E2C 


isce 




0E2E 


15C7 




0E30 


DOEO 


35AC 


0E34 


2*03 




0E36 


4810 


154A 


0E3A 


C820 


15C3 


0E3E 


41F0 


0F18 


0E42 


2402 




0E44 


D310 


154C 


oE^a 


41E0 


0E9C 


0E4C 


15CB 




0E4E 


15BF 




OE50 


DOEO 


35AC 


0E54 


D1E0 


1530 


0E56 


081E 





551 






BAL R15iTST0U 


552 






BNZ HALT9 


553 


ERRCSH2 LH RO.ERRSAVC 


554 






LH R15»SR15SAV 


555 
556 

557 






BR R15 


* 


MESSAGE PRINT ROUTINrS 


558 


• 


RETURN LINK R14I REGISTERS H( 


559 


• 






560 


* 


TO 


PRINT 'ERROR TTNN' 


561 


* 






562 






CNOP AOC 


563 


ERR1 


STM RlttSRltSAV 


564 






LOAI R5.ERRHSS 


565 






B SWS6PRT1 


566 


* 






567 


* 






568 


* 


TO 


PRINT »OEV ODD* 


569 


* 






570 


ERR01 


ST« R14t*Rl4SAV 


571 






LIS R0i3 


572 






LH Rl.ERRDEV 


573 






9AL R14'*HSGPRT 


574 






DSC ASCIDEV'2 


575 






DAC DEV«SG2 


576 


* 






577 


* 


TO 


PRINT »STA SS* 


578 


* 






579 


ERRS! 


STl R14i$Rl4SAV 


580 , 






LIS R0.2 


581 






LB Rl.ERRSTA 


582 






3AL R14»*WSGPRT 


583 






DAC ASCISTA 


584 






DAC STAHSG 


585 


* 






586 


* 


TO 


PRINT «DEV ODD STA SS« 


587 


* 






588 


ERRQS1 


STtf R14i»R14SAV 


589 






LIS R0.3 


590 






LH R1,ERRDEV 


591 






LDAI R2.ASCI0EV 


593 






BAL R15»HEXASC 


5gn 






LIS R0t2 


594 






LB Rl.ERRSTA 


595 






BAL R14«SWSGPRT 


596 






DAC ASCISTA 


597 






OAC DEVHSG 


598 


• 






599 


* 


TO 


PRINT 'PSU PPPP LOC LLLL 


600 


* 






601 


ERRPLl 


STfl R14i*Rl4SAV 


602 






LH R14.0LDPSW 


603 






LOAR R1.R14 
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list device off-line ? 
branch: tes. 
restore registers 
restore link 
return to caller. 

(do not override nowsg option i 

MODIFIED R0tRl.R9.R5, 



ALI6N PARAMETER 

SAVE LINK 

PRINT MESSAGE 

'ERROR TTNN» 

TT FROM HTESTNO« NN FRO« ERRNO 



SAVE LINK 

SET UP OIGITS « 3 

Rl a ERROR OEV * IN BINARY 

PRINT 'OEV ODD' 

"EXAsC DESTINATION 

A (MESSAGE) 



SAVE LINK 
SET UP DIGITS a 2 
Rl = ERROR STATUS 
PRINT 'STA SS« 
HEXASC DESTINATION 
A (MESSAGE) 



SAVE LINK 
SET UP DIGITS = 3 
Rl ■ ERROR DEV # 
HEXASC DESTINATION 
CONVERT IT TO ASCII 
SET UP DI6ITS s 2 
Rl a ERROR STATUS 
PRINT t EV ODD STa SS» 
HEXASC DESTINATION 
«( MESSAGE) 



SAVE REGISTERS 

R14 a PSW, R13 a LOC 

PS« TO PRINT REGISTER 



COHHON HMO CROSS GENERATOR 06-252R04H96A13 



EXEC - ETPE R05P1 



0E5A 






0£5A 


2404 




0E5C 


4850 


1548 


(1E6O 


2332 




0E62 


2406 




0E64 


C820 


15F2 


0E68 


C850 


15EE 


UE6C 


41F0 


0F18 


GE70 


2305 




0E72 


DOEO 


35AC 


HF76 


C850 


15FA 


0E7A 


OlEo 


1530 


UE7E 


081F 




0E80 






CE80 


2404 




0E82 


48Fo 


1548 


0E86 


2332 




QE88 


2406 




0E8A 


C820 


15FE 


0E8E 


41F0 


0F18 


0E92 


41F0 


0F02 


OE96 


OlEo 


35AC 


0E9A 


030E 




0E9C 


26E1 




0E9E 


C4E0 


FFFE 


0EA2 


H82E 


0000 


OEAfe 


41F0 


oFie 


OEAA 


26E? 




CEAC 


485E 


0000 


OEBO 


41F0 


0FD2 


3E94 


D1E0 


35AC 


0E88 


030E 





UEBA 2460 

OEBC 

1E3C 2470 

JEBE 0343 360C 

OfCg C530 0050 

0EC6 038E 

0EC8 2631 



604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

6?0 

621 

62? 

623 

624 

625 

626 

627 

626 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

**;?■» 

655 

656 



ERRPL1A 



IFZ 

LIS 

LH 

BZS 

ENDC 

LIS 

LOAI 

LOAI 

SAL 

BS 



ADC-2 
R0.4 

R5.H0D32 
ERRPL1A 

R0.6 

R2.ASCIPSW 

RS.PSWNRG 

R15.HEX4SC 

ERRPL1B 
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ASSUME SERIES 16 



SERIES 32 
DESTINATION 

CONVERT PSW 
GO CONVERT LOC 



TO PRINT 'LOC LLLL* 



* 
* 
* 
ERRL1 

ERRPLlB 



ERRL1A 



STM 

LOAI 

LH 

LDAR 

IFZ 

LIS 

LH 

BZS 

ENDC 

LIS 

LDAI 

BAL 

BAL 

LH 

BR 



R14iSR14SAV 

R5.L0CHSG 

R14i0L0PS« 

R1.R15 

ADC-2 

R0.4 

R15.H0DS2 

ERRL1A 

R0.6 

R2.ASCIL0C 

R15.HEXASC 

R15. PRINT 

R14<SR14SAV 

R14 



SAVE REGISTERS 

A(HCSSASE) 

R15 = OLD LOC TO PRINT 

DATA TO PRINT RE6ISTER 

ASSUME SERIES 16 



SERIES 32 

DESTINATION 

CONVERT 

PRINT 

RESTORE LINK 

RETURN 



* ROUTINE IS CALLED BY MESSAGE PRINT ROUTINES 



SHS6PRT AIS 
NHI 
LOA 
BAL 
AIS 
LOA 

JMSGPRT1 BAL 
LH 
BR 



R14.A0C-1 

R14»Q-A0C 

R2.0IR14) 

R15«HEXASC 

R14tA0C 

R5«0(R14I 

R15»PRINT 

R14.SR14SAV 

R14 



* TO OBTAIN OPTION VALUE IN R6 

* RETURNS WHEN SPECIAL CHARACTER 



* 
OPTVAL 



LIS R6iO 

IFZ ADC-2 

LIS R7tO 
ENDC 

SOPTV.Q LB R4t«NBUF»R3) 

ri ui ox.SRiici ru 



BNLR 
AIS 



R14 
R3fl 



HEXASC DESTINATION 

CONVERT DATA TO HEXADEClHAL 

A I MESSAGE TO PRINT) 
PRINT SPECIFIED HESSA6E 

RETURN TO ORIGINAL CALLER 



(R7:R6« TARgT 161 
FOUND . IGNORES SPACES. 

INITIALIZE ACCUHULATOR 

HIGH-ORDER BITS* TARGT 16 

GET NEXT INPUT CHARACTER 
AT FMD OF INPUT BUFFER 7 
RETURN IF YES. 
ADVANCE BUFFER POINTER 



COMMON HMO CROSS GENERATOR 06-232R04M96A13 
EXEC - ETPE R05P1 
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OECA 


C540 0020 


OECF 


2238 


OEDO 


C5<tO 0030 


0ED4 


028E 


0ED6 


24FF 


0ED8 


D44F 157A 


oeoc 


233if 


OEDE 


27F1 


OEEO 


2214 


t>EE2 


030C 


(IEE4 


EB60 oOOi* 


0EE8 


066F 


OEEA 


4300 OEBE 


OEEE 


2438 


3EFO 


913C 


0EF2 


CC36 0000 


0EF6 


030E 


0EF8 






0000 0EF8 


0EF8 






0000 0EF8 


■IEF8 


DOOO *09C 


OEFC 


2410 


UEFE 


2421 


OFOO 


4830 0A5A 


i)F0"* 


CllO 0F04 


0F06 


2701 


ofoa 


2037 


OFOC 




OFOC 


0100 H09C 


OF10 


030F 



0F12 
0F16 



D100 409C 
030F 



657 




CLHI 


R4.C « 


SPACE ? 


658 




BES 


SOPTV.O 


BRANCH: YES. IGNORE. 


659 




CLHI 


R4.C»0» 


LESS THAN ZERO ? 


660 




BLR 


R14 


RETURN IF SPECIAL CHARACTER 


661 




LIS 


R15.15 




662 


S0PTV.2 


CLB 


R4.HEXTABIR15) 


SCAN TABLE 


663 




BES 


S0PTV.3 


HATCH 


664 




SIS 


R15.1 




665 




BNr^s 


S0PTV.2 




666 




BR 


R12 


ERROR 1 VALUE NOT IN TABLE. 


667 


S0PTV.3 


RLL 


R6,4 


(R6tR7). SERIES 16 


668 




OAR 


R6.R15 


OR IN CURRENT DIGIT 


669 

670 




B 


*OPTV.O 




671 


* TO CONVERT 1 


!R6) FRO* BINARY TO UNARY PATTERN. IN R3 


672 


* 








67S 


UNARY 


LIS 


R3.8 


BIT TO SHIFT 


674 




SLHLS R3.12 


R3 s '8000* 


675 




SRHL 


R3.0IR6) 


SHIFT TO DESIRED POSITION 


676 




BR 


R14 


AND RETURN. 


677 
678 

679 


* 








* 








6A(1 




IFNJ 


sri_OCK 


= INCLUDE MO TIfiERS 


681 


STlHER 


EOU 


* 




682 




IFZ 


SCLOCK-3 


3 s INCLUDE BOTH 


684 




ELSE 






685 


Tl"ER 


EOU 


« 




686 




ENOC 






687 


* TO PROVIDE 


* OF MILLISECONDS OELA¥ SPECIFIED BY RO 


683 


* 








689 




STM 


RO.RSAVE 


SAVE RE6ISTERS 


690 


SSTIWl 


LIS 


R1.0 




691 




LIS 


R2.1 




692 




LH 


R3,*Tlf1vAL 


(R3> = CONSTANT FOR 1 HSEC C 


693 




BXLE 


Rl,* 




694 




SIS 


ROtl 




695 




BNZS 


SSTIH1 


LOOP TILL SPECIFIED DEL»T 


696 




B 


*TIHRET 


RELOAO RE6ISTERS, RETURN (Rl 


697 
698 
699 


* 








* 








721 


STIHRET 


LH 


ROtRSAVF 


RESTORE USER'S REGISTERS 


722 

721* 
7?5 


STIHXT 


BR 


R15 


AND RETURN. 


* ROUTINE RESTORES REGISTERS SAVED 


ON ENTRY TO CALLIN6 ROUTINE 


726 


* AND RETURNS 


BY R15 




727 


* 








728 


SRSAVRET 


L« 


ROtRSAVE 




729 




BR 


R15 


RETURN TO ORIGINAL CALLER 


730 


******* 


THIS IS KKERE TS XHPLEHENT 


STACK 


731 
753 


* 









COMMON Hwo CROSS GENERATOR 06-252R04M96A13 
EXEC - ETPE R05P1 
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oFte 


0000 


409C 


OFlC 


0630 




riFlE 


9132 




0F20 


273<* 




0F22 


0841 




0F2<* 


EC43 


0000 


0F28 


C440 


OOOF 


0F2C 


D34<t 


157A 


0F30 


0242 


0000 


0F34 


2621 




0F36 


273i| 




0F38 


221B 




0F3A 


<t300 


0F12 





0000 


0F3E 


0F3F 


DOOO 


19D0 


0F<*2 


2401 




0F4* 


2410 




0Ff6 


2470 




ifts 


4835 


nooo 


0F4C 


2136 




fiF^e 


<t835 


0002 


0F52 


2402 




OFSt 


C810 


0010 


0F58 


2428 




0F5A 


9131 




0F5C 


4380 


0F7E 


0F60 


C520 


0008 


0F64 


2336 




0F66 


C84Q 


002C 


PF66 


D242 


358C 


0F6E 


2621 




0F70 


0602 




0F72 


CA20 


35BC 


fiF76 


41F0 


oFie 


0F7A 


082D 




0F7C 


0A20 




0F7E 


2611 




0F80 


C310 


OOOF 


0F84 


4230 


0F5A 


0F88 


2440 




0F8A 


0242 


35BC 


0F8E 


0672 




0F90 


C520 


0008 


0F94 


2353 




0F96 


41F0 


oFce 



754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
76<* 
765 
766 
767 
768 
769 
796 
797 
798 
799 
800 
801 
802 
8o3 
80<* 
805 
806 
8o7 
808 
809 
810 
811 
812 
813 
814 
815 
616 
617 
818 
819 
820 
621 
822 
623 
82<t 
825 
626 
827 
826 
629 
830 
831 
832 



* TO CONVERT HEXADECIMAL DATA IN Rl TO ASCII CHAR J STORE 8 0IR2I 

* OUTPUTS UP TO 4 DIGITS (8 DIGITSi SERIES 32) 



hexasc 



SHEXA.l 



STH 


RO.RSAVE 


LDAR 


R3.R0 


SLLS 


R3.2 


SIS 


R3,4 


LDAR 


R4,R1 


SRL 


R4.0<R3) 


NHI 


R4«1S 


LB 


R4.HEXTABIR4) 


STB 


R4,0(R2) 


AIS 


R2,l 


SIS 


R3.4 


BNHS 


SHEXA.l 


B 


SRSAVRET 



STORE REGISTERS 
R3 = DIGITS 



R3 
R4 

R4 



4(0IGITS»-4 
HEX OATA 



HEX DIGIT TO BE CONVERTED 
STORE ASCII CHAR 



LOOP TILL ALL DIGITS 

RESTORE REGISTERS, RETURN <R15) 



* TO OUTPUT LIST OF BITS IN ASCENDING NUMERIC ORDER. 
« STARTING FROM HIGH-oroER BIT AS BIT 

* DOES NOT OVERLAY OPTION NAME IN SOUTBuF. 

* 



SLSTBIT 



slstb.a 



slStb.b 

SLSTB.O 



EQU 

STH 

LIS 

LIS 

LIS 

LH 

BNZS 

LH 

LIS 

LHI 

LIS 



RO.ERRSAVE 

RO.l 

R1.0 

R7.0 

R3,0<R5) 

SLSTB.B 

R3.2IR5) 

R0.2 

Rl.XUO* 

R2.SCKR0UT+2 



SLHLS R3.1 



SLSTB.l 



BNC 
CLHI 
BES 
LHI 
STB 
AIS 
LDAR 
AH I 
BAL 
LDAR 
SLSTB.2 AAR 
SLSTB.2A AIS 
THI 
BNZ 
LIS 
STB 
OAR 
CLHI 
BES 
BAL 



SLSTB.2 A 

R2.SCKR0UT+2 

SLSTB.l 

R4.C',' 

R4, SOUTBUF (R2) 

R2.1 

R13«R2 

R2.S0UTRUF 

R15tHEXASC 

R2.RIS 

R2.R0 

Rl.l 

R1.15 

SLSTB.O 

R4,X'0D« 

R4.S0UTBUFIR2) 

R7.R2 

R2.SCKROUT+2 

SLSTB.2B 

R15«9PRiNT 



SAVE REGISTERS 

DIGITS TO OUTPUT 

STARTING WITH NUMBER 

PRINT FLAG 

LOW-NUHBEREO PARAMETER BITS 

BRANCH: ONE SET 

HIGH-NUMBERED PARAMETER BITS 

2 0I6ITS NEEOED FOR HEXASC 

BIT NUMBER BASE 

NO OVERLAY OF OPTION NAME 

TEST LEFTMOST HALFWORO BIT 

BRANCH! ZERO. 

ANY OUTPUT YET ? 

BRANCH! NO 

COM"A 

INSERT IN BUFFER 

SAVE BUFFER OFFSET 

HExAsC DESTINATION 

CONVERT BIT NUMBER 

GET OFFSET 

INCREMENT BUFFER POINTER 

INCREMENT BIT NUMBER 

HALFWORO COMPLETED 7 

BRANCH t NO. 

CARRIAGE RETURN 

INSERT IN BUFFER 

ACCUMULATE HIGHEST BTTE COUNT 

ANY OUTPUT THIS TIME ? 

BRANCH: NO. 

PRINT THE BUFFER. 



COMMON HMO CROSS GENERATOR 06-252R0»M96Al3 
EXEC - ETPE R05P1 
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0F9A 


C510 


0020 


0F9E 


4280 


0F4E 


0FA2 


2778 




0FA4 


21*3 




0FA6 


41F0 


0FC8 


OFAA 


0100 


1900 


OFAE 


030F 




OFBO 


DOOO 


409C 


0FB4 


C850 


1659 


0FB8 


230F 




OFBA 


26F1 




OFBC 


C4F0 


FFFE 


OFCO 


485F 


0000 


0FC4 


26F2 




0FC6 


2306 




0FC8 


OOOO 


409C 


OFCC 


C850 


35BC 


OFOO 


2303 






0000 


0F02 


DF02 


DOOO 


409C 


OF06 


2400 




oFoa 


4000 


1562 


riFOC 


41F0 


1274 


OFEO 


4230 


0F12 


0FE4 


4810 


1566 


0FE8 


4230 


0CE2 


OFEC 


4800 


155C 


OFFO 


4500 


16B8 


0FF4 


4280 


0F12 


r.FF8 


4800 


160E 


OFFC 


261*1 




OFFE 


4000 


16DE 


1002 


C500 


0038 


1006 


2184 




1008 


2400 




100A 


4000 


160E 


100E 


D345 


0000 


1012 


41F0 


1054 


1016 


0844 




1018 


233A 




101A 


2651 




101C 


C350 


0002 


1020 


223? 




1022 


4050 


1564 



833 
834 
835 
836 
837 
838 
839 
840 

857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
674 
875 
876 
677 
678 
879 

sac 

881 
882 
883 
884 
885 
686 
867 
888 
889 
890 
891 
892 
893 
694 
895 
896 
897 
898 
899 
900 



SLSTB.2B CLHI 
BL 
SIS 
BNZS 
BAL 

Sl.STB.2C LM 
BR 



R1.32 

SLSTB.A 

R7.SCKR0UT+2 

SLSTB.2C 

R15tapRtNT 

RO.ERRSAVE 

R15 



* to output cr»lf to list device 



* 

CRLF 



SPRINT 



STH 

LOAI 

B 

AIS 

NHI 
LDA 
AIS 

BS 



3PRINT STM 
UOAI 



* 

PRINT 
SPO 
$Pl 



SPRT.l 



* 
SPRT.2 



EQU 
STH 
LIS 

STH 

BAL 
BNZ 

LH 
9N2 

LH 

CLH 

BL 

LH 

AIS 

STH 

CLHI 

BLS 

LIS 

STH 

LB 

BAL 

LDAR 

BZS 

AIS 

THI 

BZS 

STH 



RO.RSAVF 

R5.CRLFMS6 

SP1 

R15»A0C-1 

R15,Q-A0C 

R5«Q<R15» 

RlSiAOC 

SPO 

RO.RSAVE 

R5.S0UTRUF 

SP1 



ROtRSAVE 

RO.O 

RO.SLINEPOS 

R15.TST0U 

SRSAVRET 

Rl.SUASOU 
HALT9 

RO.ISITERR 

R0.NOHSG+SVALU1 

SRSAVRET 

RO.SLINCNT 

R0,1 

RO.SLINCNT 

RO.HAXLTNE 

SPRT.2 

RO.O 

RO.SLINCNT 

R4.0(R5> 

R15.0UTCHR 

R4.R4 

SPRT.3 

R5.1 

R5.2 

SPRT.2 

R5.SPRTFLS 



fulluoro completed ? 

branch: no. 

ant output done ? 

branch: yes. 

print option name in buffer. 

RETURN 



SAVE RESISTERS 

CR, LF 

SO PRINT LINE. 



A<MESSA6E TO PRINT > 



save resisters 

to print output buffer 



to print the ascii message 
store registers 

reset buffer 

is device UNAVAILABLE ? 

if yes, reload registers. return. 

was device ever seen ou 7 
output total. toterr. 

an error message ? 

if so, can be suppressed ? 

branch: message is suppressed. 

* 

INCREMENT LISTING LINf. COUNT 

* 

at limit? 
skip IF NO 

* 

RESET COUNT TO ZERO 

SET A MESSB6E BYTE 
OUTPUT IT 
ZERO BYTE? 
MSG OVER 

TIME TO CHECK BREAK ? 

BRANCH: NO. 

TO DEFER BREAK ACKNOULEOGE 
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1026 

102A 



41F0 11E4 
220E 



102C 


41F0 


11E4 


1030 


4040 


1564 


1034 


48Fo 


1558 


1038 


4040 


1558 


103C 


4330 


0F12 


1040 


40F0 


155C 


1044 


C550 


1654 


1048 


2334 




104A 


41F0 


OFBA 


lOtt 


1639 




1050 


4300 


0AB2 


1054 


40FO 


1574 


1058 


D310 


155B 


105C 


2714 




105E 


4230 


108E 


1062 


4010 


1570 


1066 


41F0 


1274 


106A 


4230 


10C6 


106E 


9021 




1070 


2385 




1072 


4810 


1570 


1076 


2038 




1078 


2308 




107A 


9B21 




107C 


C410 


007F 


1080 


C510 


0014 


1084 


4330 


1062 


1068 


C810 


0012 


108C 


203Q 




108E 


4010 


1570 


1092 


4110 


12EC 


1096 


9D01 




1098 


4230 


10C6 


109C 


CS10 


0048 


10A0 


4330 


10C6 


10A4 


C410 


OOFC 


10A8 


C510 


OOOC 


10AC 


233D 




10AE 


C310 


0008 


1"B2 


203E 




1084 


9A04 




10B6 


9001 





901 




SAL 


R15»TSTRRK 




902 




BS 


SPRT.2 


LOOP FOR NEXT CHAR 


903 


* 








904 


*SPRT.3 


LIS 


R4.X«0A» 


LF 


905 


• 


BAL 


R15.0UTCHR 


LF 


906 


* 


LIS 


R4.0 


ASCII 'NUL* 


907 


* 


BAL 


R15»0UTCHR 


TERMINAL CHARACTER 


908 


SpRT.3 


BAL 


R19«TSTHRK 




909 




STH 


R4.SPRTFLS 


RE-ENABLE 8REAK ACKNOWLEDGE 


910 




LH 


R15.SBRKFLG 




911 




STH 


R4.SBRKrLG 


BREAK BEING ACKNOWLEDGED 


912 




BZ 


SRSAVRET 


RESTORE REGISTERS, RETURN (Rl5) 


913 




STH 


R15»ISITERR 


FORCE MESSAGE PRINT 


914 




CLAI 


R5.SBRKEN0 


PRINTING 'BRK TERM* MESSAGE ? 


915 




BES 


SPRT.4 


BRANCH: YES. 


916 




BAL 


R15i*PRTNT 


•RECURSIVE' CALL 


917 




OAC 


BRKNS6 


•BREAK TERMINATION* 


918 
919 
920 


SPRT.4 


B 


0PTIN1 


TO CMD PROCESSOR 


* TO OUTPUT A 


CHARACTER TO THE 


LIST DEVICE 


921 


* 








922 


OUTCHR 


STA 


R15»0UT.SAV 


SAVE RETURN AOORESS 


923 




LB 


Rl.IOSAVE+1 




924 




SIS 


Rl.4 




925 




BNZ 


SOTC. 4 


BRANCH IF NOT CAROUSEL 


926 


SOTC.O 


STH 


Rl.SPAUSE 


ZERO SPAUSE FLAG 


927 


SOTC.l 


BA L 


RISiTSTOU 


ON LINE ? 


928 




BNZ 


SOTC, 7 


branch: offline, exit. 


929 




SSR 


R2.R1 


GET CAROUSEL STATUS 


930 




BFFS 


SiSOTC.3 


BRANCH IF CHAR. IS TO BE READ 


931 


S0TC.2 


LH 


Rl.SPAUSE 


PAUSEO NOW ? 


932 




BNZS 


SOTC . 1 


YES' LOOP 


933 




BS 


S0TC.4 


NO, GO OUTPUT CHARACTER 


934 


S0TC.3 


RDR 


R2.R1 


6ET CAROUSEL CHARACTER 


935 




NHI 


R1,X»7F» 




936 




CLHI 


Rl,X'l4' 


0C4 ? 


937 




BE 


SOTC.O 


DC4. SET SPAUSE FLAG. 


938 




SHI 


Rl.X'12* 


DC2 ? 


939 




BNZS 


SOTC. 2 


BRANCH: NO. CHECK IF PAUSED NOW 


940 


* 








941 


$0TC,4 


STH 


Rl.SPAUSE 


RESET FLAG 


942 




BAL 


Rl.SSETUP 


SET UP FOR OUTPUT 


943 


S0TC.5 


SSR 


R0.R1 


WAIT FOR NOT BUSY 


944 




BTC 


3, SOTC. 7 


BRANCH IF OFF-LINE 


945 




CLHI 


Rl.X'48f 


NOT CL2S OR PF 


946 




8E 


SOTC. 7 


RETURN IF YES 


9H7 




NHI 


Rl.X'FC* 




948 




CLHI 


Rl.X'OC* 


HDX PASLA OFF-LINE ? 


9<»9 




BES 


SOTC. 7 


BRANCH: YES. 


950 




THI 


R1.8 


BUSY ? 


951 




OIU7C 


SOTCsS 


uitt FOR NO v S n SY 


952 




woiT 


RoiR4 


OUTPUT OATa" BYTE 


953 


S0TC.6 


SSR 


R0.R1 


WAIT FOR NOT BUSY 
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EXf 


:C - ETPE R05P1 














10B8 


2177 




95* 






STFS 


7.S0TC.7 


BRANCH IF OFF-LINE (PAStA HANGS) 


10BA 


C510 


00*8 


955 






CLHI 


RltX'*8« 


NOT CL2S OR PF » 


10BE 


233* 




956 






BES 


S0TC.7 


RETURN IF YES * 


1OC0 


C310 


0008 


957 






THI 


R1.8 


WAIT FOR NON BUST * 


IOC* 


2037 




958 






BNZS 


S0TC.6 


* * 


IOCS 


*8F0 


157* 


959 


$0TC,7 


LDA 


R15»0UT.SAV 




10CA 


030F 




960 
961 
979 






BR 


R15 


RETURN 








* ROUTINE 6ETS 


Input record 










980 


* 










10CC 


DOOO 


*09C 


981 


JREAD 


STH 


ro.rsavp 


SAVE REGISTERS 


10DO 


25D1 




982 


$R0, 


.1 


LCS 


R13.1 


INITIALIZE 


10D2 


2601 




983 


sro, 


,2 


AIS 


R13.1 


INCREMENT BUFFER POINTER 


100* 


*000 


1562 


98* 






STH 


R13»*LINEP0S 


ADDRESS OF CURRENT BYTE 


10D8 


*1*0 


1200 


985 


SROi 


.3 


BAL 


R4.KBREAD 


PUT DEVICE IN READ MODE 


100C 


9D0* 




986 






SSR 


R0.R4 




100E 


2081 




987 






BTBS 


8.1 


IF BUSY. LOOP (POSSIBLE HANG) 


10E0 


9B0* 




988 






R0R 


RO.R* 


READ A CHAR IN R* 


10E2 


D390 


OA10 


989 






LB 


R9.I0 


WHAT TYPE DEVICE ? PI 10/79 


10E6 


2792 




990 






SIS 


K9.2 


TYPE 2 7 PI 10/79 


10E8 


2338 




991 






B2S 


SR0.3A 


BRANCH! YES. E.PLEX On. PI 10/79 


10EA 


*890 


0A2C 


992 






LH 


R9.C0NWA0R 


GET WRITE ADDRESS 


10EE 


0E90 


0A2F 


993 






0C 


R9.C0NWRT 


TURN DEVICE AROUND 




9U93 




99* 






«*Cr» 


RS.R5 




Lur c 








&<*n 




10F* 


2081 




995 






BTBS 


8.1 


WAIT FOR BUSY NOT 


10F6 


9A9* 




996 






WDR 


R9.R* 


ECHO RECEIVEO BYTE 




0000 


10F8 


997 


sro. 


,3A 


COU 


* 


PI 10/79 


10F8 


C**0 


007F 


998 






NHI 


R*,X'7F« 


REMOVE PARITY BIT 


10FC 


C5*0 


00*0 


999 






CLHI 


R*.C»a« 


COMMERCIAL AT SIGN? ** 


1100 


*330 


0A5C 


1000 






8E 


SCON 


BREAK OUT IF YES ** 


110* 


C5*0 


0060 


1001 






CLHI 


R*,X«60» 


UPPER-CASE CHARACTER 7 


1108 


2183 




1C/02 






BLS 


SRO. 4 


BRANCH: NO. 


110A 


CB*0 


0020 


1003 






SHI 


R*.X«20» 


CONVERT TO LOWER-CASE 


110E 


C5*0 


0023 


100* 


srO, 


,* 


CLHI 


R*.X«23» 


HASH-MARK ? 


1112 


*330 


OAAA 


1005 






BE 


OPTIN 


BRANCHJ YES. 60 TO C«0 PROC, 


1116 


C5*0 


0018 


1006 






CLHI 


R*,X»18» 


ASCII 'CANCEL* CHARACTER 7 


111A 


*330 


OAAA 


1007 






BE 


OPTIN 


BRANCH: YES. 


111E 


C5*0 


OOSF 


1008 






CLHI 


R*,X«5F« 


SACKflRROW, UNDERLINE. DELETE ? 


1122 


233* 




1009 






BES 


SRO. 5 


branch: oelete last character 


1124 


C5*0 


0008 


1010 






CLHI 


R*,X'08» 


BACKSPACE 7 


1128 


2136 




1011 






SUES 


SRO. 6 


branch: no. 


112A 


2702 




1012 


srd. 


,5 


SIS 


R13.2 


TO OELETE LAST CHARACTER 


112C 


*210 


10D0 


1013 






BH 


SRO.l 


BRANCH} NO UNDERFLOW ALLOWED. 


1130 


4300 


10D2 


101* 






B 


SRO. 2 


GET ANOTHER CHARACTER 


113* 


02*D 


360C 


1015 


SRQi 


.6 


STB 


R*,SINBUF(R13) 


STORE CURRENT INPUT BYTE 


1138 


C5*0 


0000 


1016 






CLHI 


R*.X'00« 


CARRIAGE RETURN ? 


113C 


2135 




1017 






BNES 


SRO. 7 


BRANCH: NOT YET. 


113E 


C850 


1659 


1018 






LOAI 


R5.CRLFHSS 




11*2 


4300 


0FO6 


1U19 






B 


SP1 


OUTPUT (CR).(LF) TO CONSOLE. RETURN. 


11*6 


C500 


004F 


1020 


Sc*0. 


.7 


CLHI 


R13.*BUFLEN-1 


BUFFER AT MAX ? 


11*A 


*280 


1002 


1021 






BL 


SRO .2 


BRANCH; NOT YET. 


11*E 


4300 


10D8 


1022 
1023 


* 




B 


SRO .3 


BRANCH: FORCE OVERLAY OF LAST CHARACT 
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1152 


0310 


0A1O 


1156 


0320 


0A11 


115ft 


2436 




115C 


0513 




115E 


2182 




1160 


2411 




1162 


0523 




1164 


2182 




1166 


242l 




1163 


0210 


0A10 


116C 


0220 


0A11 


1170 


0362 


0A48 


1174 


4060 


1554 


1178 


0866 




117A 


2336 




117C 


9122 




117E 


<t802 


0A10 


1182 


OE02 


0A32 


1186 


4lF0 


12BC 


UBA 


9310 




118C 


9112 




USE 


2712 




1190 


4831 


OAlO 


1194 


4030 


0A2A 


1198 


4831 


0A12 


119C 


4030 


0A2C 


11A0 


4821 


0A32 


11A4 


4020 


0A2E 


11A8 


4821 


0A34 


11AC 


4020 


0A30 


HBO 


9310 




1182 


0341 


0A48 


11B6 


0240 


0A48 


11BA 


4040 


1552 


U9E 


0844 




11C0 


2333 




11C2 


9422 




11C* 


9E32 




11C6 


OE30 


0A2E 


11CA 


9632 




11CC 


0844 




11CE 


2333 




1100 


DE30 


0A48 




0000 


1104 


1104 


030E 




11D6 


41F0 


12BC 



1024 

1025 

1026 

1027 

1028 

1U29 

1030 

1031 

1032 

1033 

1034 

1U35 

1036 

1037 

103S 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1C60 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 



» SET UP 


FOR CONSOLE, LIST I/O OEV 


* 

stcon 


LB 


Rl.lO 




LB 


R2.IO+1 




LIS 


R3«*HA)aO 




CLAR 


R1.R3 




BLS 


SSTC.l 




LIS 


Rl.l 


SSTC.l 


CLAR 


R2,R3 




BLS 


SSTC2 




LIS 


R2.1 


S-5TC.2 


STB 


Rl.IO 




STB 


R2.I0+1 




LB 


R6»C0NR02S(R2> 




STH 


R6,$LSTPAS 




LDAR 


R6.R6 




BZS 


SSTC.3 




SLHLS 


R2.2 




LH 


R0,IO<«2) 




OC 


R0,C0NC»ID<R2> 


ISTC.3 


BAL 


R15«S£TkB 




LBR 


RliRO 




SLHLS 


Rl,2 




SIS 


R1.2 




LH 


R3,IOIRi) 




STH 


R3.CONRAOR 




LH 


R3,I0+2(R1) 




STH 


R3.CONWAOR 




LH 


R2,CONC*0!R1> 




STH 


R2.CONR0 




LH 


*2.C0NCp|0*2<R1I 




STH 


R2.CON2ND 




LBR 


R1.R0 




LB 


R4.C0NR02S(R1» 




STB 


R4.C0NRQ2S 




STH 


R4.SC0NPAS 




LOAR 


R4.R'* 




bzs 


SSTC.4 




EXBR 


R2.R2 




OCR 


R3«R2 


SSTC.4 


OC 


R3.CONRD 




ROR 


R3.R2 




LOAR 


R4.R4 




BZS 


$STC5 




OC 


R3.CONR02S 


SSTC.5 


E9U 


* 




BR 


R14 



SET I/O IDENTIFIERS 
IDENTIFIER CAN BE 1.2,3«*t5 

branch if kb identifier ok 
else force crt 

same test for list device 

reestablish values 

set pasla flag (list device) 
skip if not pasla 

issue 2nd command (to list oevice*** 
establish keyboard device (* iosave) 

(Rl) 2 1.2, 4,5 J (RO a KBIOENT) 
(Rl»x4.8»16,20 

SET UP CONSOLE DEVICE REAO ADDRESS 

SET UP CONSOLE WRITE ADDRESS 

SET UP R/W COMMANDS 

2ND CMOl ENABLE REAO CMD 



CONSOLE REQUEST To SEND 
SET PASLA FLAG (CONSOLE* 

SKIP 2ND OC IF NOT PASL* DEVICE 

ISSUE 2ND COMMAND (TO CONSOLE I 

PUT CONSOLE IN READ MODE 

READ A OUMHY CHARACTER (SET BUSY) 

CONSOLE PASLA DEVICE ? 

BRANCH: NO. 

REGUEST TO SEND (KEEP ON-LINE) 

RETURN 



* 
* 
QUESTN 



TO OUTPUT «?' TO CONSOLE 
BAL R15»SETKB 



SELECT KEYBOARD DEVICE 
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UOA 


41FQ 


OFBA 


iioe 


1630 




UEO 


4300 


0AB2 




0000 


11E4 


HE"* 


OOEO 


35A0 


iiES 


48F 


16B6 


HEC 


46F0 


1558 


UFO 


27FF 




11F2 


2137 




11F4 


24F0 




11F6 


40F0 


1556 


UFA 


DIEO 


35A0 


11FE 


03 OF 




1200 


H8E0 


0A2A 


120i» 


D3F0 


0A10 


120$ 


C5F0 


0002 


120C 


2333 




120E 


C5F0 


0005 


1212 


4330 


1250 


1216 


9DEF 




121S 


4280 


11F4 


121C 


C3F0 


0020 


1220 


4330 


11F4 


1224 


9BEF 




1226 


08I : F 




1228 


4230 


UF4 




0000 


122C 


122C 


24FF 




122E 


40F0 


1558 


1232 


48F0 


1564 


1236 


4230 


UFA 


1234 


24E0 




123C 


48F0 


1556 


1240 


40E0 


1556 


1244 


023F 




1246 


41F0 


OFBA 


124A 


1639 




124C 


4300 


0AB2 


1250 


9DEF 




1252 


C3F0 


0020 


1256 


2134 




1258 


9BEF 




125A 


4300 


11F4 


125E 


98EF 




126.1 


C8F0 


8000 


1264 


26F1 





1077 




SAL. 


R15. SPRINT 


1078 




DAC 


OMSG 


1079 
1080 

ioai 




3 


OPTIN1 


* IF BREAK KEY DEPRESSED. SO TO 


1082 


* 






1083 


TSTBRK 


EQU 


* 


1084 




STM 


R14.*TBRKSW 


1085 




LH 


R15.N0MSG+SVALU1 


1086 




OH 


R15«*BRKFLG 


1087 




SIS 


R15tl5 


1088 




BNZS 


STSTB.2 


1089 


* 






1090 


STSTB.l 


LIS 


R15»0 


1091 




STH 


R15'BRKVECT 


1092 


ststb.i; 


1 LM 


R14.STBRKSV 


1093 




BR 


R15 


1094 


* 






1095 


STSTB.2 


LH 


R14.C0NRA0R 


1096 




LB 


R15«I0 


1097 




CLHI 


R15.2 


1098 




8ES 


STSTB.3 


1099 




CLHI 


R15.5 


1100 


STSTB.3 


BE 


STSTB-5 


1101 




SSR 


R14.R15 


1102 




BTC 


8. STSTB.l 


1103 




THI 


R15«X«2o« 


1104 




az 


STSTB.l 


1105 




ROR 


R14.R15 


1106 




LOAR 


R15.R15 


1107 




BNZ 


STSTB.l 


1108 


* 






1109 


STSTB.4 


EQU 


* 


1110 




LIS 


R15.15 


1111 




STH 


R15.SBRKFLG 


1112 




LH 


R15.SPRTFLG 


1113 




3N2 


STSTB.lA 


1114 




LIS 


R14.0 


1115 




LH 


R15.BRKVECT 


1116 




STH 


Rl4iBRKuECT 


1117 




BNZR 


R15 


1118 




BAL 


R15.SPRINT 


1119 




DAC 


BRKMSG 


1120 




B 


OPTIN1 


1121 


* 






1122 


STSTB.5 


SSR 


R14.R15 


1123 




THI 


R15«X»20» 


1124 




BNZS 


STSTB.6 


1125 




ROR 


R14.R15 


1126 




B 


STSTB.l 


1127 


STST8.6 


ROR 


R14.R15 


1128 




LHI 


R15»X'B000» 


1129 


STSTB.7 


AIS 


R15il 
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8UESTI0N HARK. CRLF 
ACCEPT NEXT COMMAND 



•OPTIN' OR (BRKVECTM ELSE RETURN. 



SAvE REGISTERS 

(Rl5j 1 15 IF IGNORING I/O 

<R15> r 15 IF BRK ALREADY SEEN 

LOOK FOR BREAK 7 

branch: YEs. 



CANCEL BREAK VECTOR 
RELOAD REGISTERS. 
RETURN TO CALLER. 

READ SIDE ADDRESS FOR TERMINAL 
CONSOLE ID CODE 

BRANCH: TTY 

gOftty£U. WTJOQ-T/Q One 

branch: bsy = no brk 
branch! no frerr s no b<*k 

branch! nonzero char s no brk 
it is break 

SET FLAG 
PRINTING NOW 7 
BRANCH: YES. 

SPECIFIED VECTOR 

CANCEL VECTOR 

BUT TAKE IMMEDIATELY TF NON-ZERO. 

•BREAK TERMINATION* 



BRANCH! BRK. 

IF 3RK OUEUED. SEE IT NEXT TIME. 
BRANCH! NO FRERR s NO BRK 
READ BREAK CHAR 
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1266 


2031 




1268 


9DEF 




126A 


C3F0 


0020 


126E 


2U38 




1270 


moo 


122C 


1274 


241F 




1276 


4S10 


16B8 


1274 


"♦330 


12AC 


127£ 


4800 


1552 


1282 


0310 


155R 


1286 


OHIO 


0A10 


1284 


2353 




128C 


4600 


1554 


1290 


9112 




1292 


4821 


□ AOE 


1296 


9021 




1298 


211A 




129A 


0000 




129C 


2336 




129E 


C410 


nOFC 


12A2 


C510 


OOOC 


12A6 


2333 




12A8 


241o 




12AA 


2302 




12AC 


2511 




12AE 


4800 


1566 


12B2 


0601 




1284 


4000 


1566 


12B8 


0811 





12BA 



03UF 



12BC 


D300 


0A10 


12C0 


0200 


1558 


12C4 


Q30F 





12C6 4800 0A10 
12CA 4000 155A 
12CE 030F 



1200 4800 0A2A 

12D4 OEOO 0A2E 

1208 OBOO 1550 

120C 4890 1552 



1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 



BNZS 

ss* 

THI 

6NZS 

B 



STSTB.7 

R14.R15 

R15«X'20' 

STSTB.6 

STSTB.4 



brk key still doun 
branch: yes. 
60 service break 



SEE IF CURRENT LIST OEVICE IS OFF-LINE (Rl 8 CC NON-ZERO IF OFF! 



* 
* 

TSTOU 



LIS R1.15 

CLH RltNONSG+SVALUl 

BE $15. DU 

LH RQ.SCONPSS 

LB Rl.IOSAVF+1 

CLB RliIO 

8ES STSTOU.l 

LH ROiSLStpaS 

STSTDU.l SLLS R1.2 

LH R2,PASlADR-4(R1) 

SSR H2.R1 

RTFS 1.SIS.OU 

LDAR ROtRO 

BZS snot.du 

NHI Rl.X'FC 

CLHI RltX'OC 

BES »IS.OU 

SNOT.DU LIS RliO 

BS $OU.X 

SIS.DU LCS Rlfl 

SOU.X LH RO.SWASOU 

OAR RO.R1 

STH RO.SWASOU 

LOAR RltRl 
* 

BR R15 



IGNORING I/O ? 

BRANCH: CONSIDER AS Ou. 

LIST OEVICE 10 

SAME AS CONSOLE DEVICE ? 

BRANCH? YES. 

NON-ZERO IF LIST OEVICE ON PASLA. 

'READ SIDE* ADDRESS 
GET OEVICE STATUS 

OEylcE ON PASLA 7 

PASLA OU IF BSY+EX SET HERE 
BRANCH: OU. 



GET OLD FLAG 

ACCUMULATE 

SET CC <> IF DU 

OR CC = IF NOT OU 

RETURN 



GET KEYBOARO OEVICE 
SET LIST TO KEYBOARD 
RETURN 



* TO DIRECT INPUT AND OUTPUT TO CONSOLE OEVICE 

setkb lb RO.IO 

STB RO.IOSAvE+1 
BR R15 

* -------------------------- 

* TO RESELECT USER'S I/O CHOICE 
* 
SFTLST LH RO.IO 

STH RO.IOSAvE 
BR R15 
*_--—-.—-.— ---------------- 

* TO PUT KEYBOARD DEVICE IN READ HOOE 
♦ 
KBREAD LH RO.CONRADR 

OC RO.tONRO 
RD RO.SINK 
LH R9.SC0NPAS 



RETURN 



vi tunisui.c. - ncnu mnn«"» 

REAO A DUNHY CHARACTER «SET BUSY* 

PASLA ? 
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12E0 
12E1 
12E6 
12EA 


1200 
2333 
DEOO 
0301 


12E0 
0A18 


12EC 
12F0 
12F1 
12F6 
12FA 
12FE 
1502 


1010 
O310 
9112 
1801 
DE01 
1810 
0301 


1578 
1553 

0A10 
0A31 
1578 


1301 
1306 
1304 
130E 
1312 
1316 
131ft 


DOEO 
2100 
C810 
1001 
1001 
2712 
2215 


35AC 

001E 
0000 
0080 


131A 
131A 
131E 


1800 
2333 


1518 


1320 
1321 
1328 
132C 
132E 


C800 
C810 
1U01 
2712 
2213 


1301 
07FE 
0000 


1330 
1331 
1338 
1338 


C8E0 
C6F0 

DOEO 


3000 
H9E 

0031 


133C 


DOEO 


0030 


1310 

1312 

1316 
1316 


21E0 
C8F0 

OOEO 


1138 
003C 


131A 


DOEO 


0038 


131E 
1352 
13S6 
1356 


CBEO 
C8F0 

1800 


3000 
HAE 

1518 



1183 






NOP 


* 


1181 






BZS 


skbR.1 


1185 






OC 


R0.CONRQ2S 


1186 
1199 

1200 


SKBR.l 


BR 


R1 


* 


LIST 


DEVICE 


SET UP ROUTINE 


1201 


* 








1202 


SSETUP 


STA 


Rl.SET.RTN 


1203 






LB 


Rl.IOSAVE+1 


1201 






SLHLS 


Rl,2 


1205 






LH 


R0«IO(RD 


1206 






OC 


RO.CONCnD-KRl) 


1207 






lda 


R1»SET,RTN 


1208 






BR 


Rl 


1209 


* 


**************************** 


1210 


* 


LOW 


CORE SET UP ROUTINE 


1211 


* 








1212 


LCORC 


STH 


R11«SR11SAV 


1213 






LIS 


R0«0 


1211 






LHI 


RI.X'IE* 


1215 


SLC0R1 


STH 


RO,0<R1) 


1216 






STH 


R0,X«80MR1> 


1217 






SIS 


Rlt2 


1218 






Bnmc 


*i_CORl 


1219 


* 








1220 






IFZ 


AOC-2 


1221 






LH 


R0.HOD32 


1222 






BZS 


*LC0R2 


1223 






ENDC 




1221 






LHI 


R0.SXI3? 


1225 


$LC0R2 


LHI 


Rl, 1023*2 


1226 


$|_C0R3 


STH 


RO.X'DOMRU 


1227 






SIS 


R1.2 


1228 






BNHS 


SLCOR3 


1229 


* 








1230 






LHI 


R11iX»3000« 


1231 






LDA I 


R15.*ERRF2 


1232 






IFZ 


AOC-2 


1233 






STM 


R11tX«31« 


1231 






ENDC 




1235 






ST* 


R11«X'30« 


1236 


* 








1237 






LIS 


ft 11.0 


1238 






LOAI 


R15i$ERRF3 


1239 






IFZ 


AOC-2 


1210 






STM 


R11tX»3C 


1211 






ENDC 




1212 






ST«1 


R1»»X'38» 


1213 


* 








1211 






LHI 


R11«X'3000» 


1215 






LOAI 


R15.SERRF1 


1216 






IFZ 


AOC-2 


1217 






LH 


R0«HOD3; 



FOR SPECIAL KB DEVICE 
NO, BRANCH TO EXIT 
YES, OC (REQUEST TO SEND) 
RETURN 



6ET LIST DEVICE IDENTIFIER 

HW INDEX 

GET LIST DEVICE WRITE ADDRESS 



RETURN 



SAVE RESISTERS 



ZERO MEMORY FROM X»0O0O*-X»001F« 
ZERO MEMORY FROM X'0080*-X'00CF« 



SERIES 32 ? 

branch: no. 
32-bit i/o handler 

FOR MAX I/O SERVICE UflLE 
VECTORS TO MEMORY X'QOOO'-X'OSCE' 
ARE ZERO FOR SERIES 16 



ARITH FAULT, MALFUNCTION. ONLY. 
ILLEGAL INSTRUCTION HjNOLER 

FOR SERIES 16 

FOR SERIES 32 

TO ZERO MMF BIT IN NEW PSW 
MACHINE MALFUNCTION NEW LOC 

FOR SERIES 16 

FOR SERIES 32 

ARITH FAULT, MALFUNCTION, ONLY. 
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135A 


2X33 




135C 


O0E0 


004C 




0000 


1360 


1360 


OOEO 


0048 


1364 


40E0 


009A 


1368 


241E 




1364 


C800 


149A 


136E 


4001 


009C 


1372 


2712 




1374 


2213 




1376 


C840 


4108 


137A 






137A 


4810 


1548 


137E 


213D 




1380 


4040 


0022 


138i* 


CSFO 


14A6 


1388 


DOEO 


002C 



138C C8F0 13C6 
1390 DOEO 0044 
1394 4300 13C0 



1398 
139A 


24F0 
OOFO 


0040 


139E 
13A2 
13A4 


4040 
2748 
4040 


0086 
0084 


13A8 

13AC 


C8F0 
OOEO 


1496 

0088 


13B0 
1384 


C8F0 
OOEo 


14AA 

0090 


13B8 
13BC 


C8F0 
DOEO 


1492 
0OC8 


13C0 

13C4 


01EO 

030F 


35AC 



1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1262 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 

1324 
1325 



SLC0R3A EQU 
ENOC 



BNZS SLC0R34 
STrt RmtX'4c« 

* 



STH R14.X»48« 



SLC0R4 



STH 
LIS 
LHI 
STH 
SIS 



R14»X»9A« 

R1.14 

R0.SERRF9 

R0.X'9CMRl> 

R1.2 



BRANCH J PROTECT X'SO* SEQUENCE 
FIXED-POINT OIV FAULT HQLR. S16 



ARITHMETIC FAULT HOLR. S32 

SVC NEW PSW 

SVC INTERRUPT HOLR 
SVC INTPT NEW LOC»S 



BNNS $LC0R4 



DO ALL 16 



LHI R4.PSWSAVE*X«FF«M»FF00'+8 PPF REG SAVE AREA 

IFZ AOC-2 

LH R1.N0032 

BNZS SLC0R5 
* 

* SET UP AODITIONAL LOU CORE FOR 16-BIT MaCHINE ONLY 
* 

STH R4,X«22i REG SAVE POtNTER 

LHI R15.SERRF5A 

STH R14tX»2 C » S16 FLOAT-POINT INTPT NEW PSW 



LHI 
STM 

B 



R15iSXH6 
R14»X»44« 
SLCORXIT 



S16 I/O HANDLER 

S16 EXTERNAL INTPT NEW PSW 

RESTORE R14:R15. RETURN <R15| 



* SET UP ADDITIONAL LOy CORE FOR 32-BIT MACHINE ONLY 

* 



*LCOR5 

* 



ENOC 
LIS 

STn 

STH 
SIS 
STH 



R15«0 
R15<X*40* 

R4.X'86» 

R4.8 

R4,X'84» 



LOAI R15t*ERRF8 
STH R14»X'8fl» 



LDAI 
STH 



R15t»ERRF5 
R14»X»90» 



LOAI R15«*ERRF7 

STM Rl4fX»C8« 



SLCORXIT L« 

8R 



R14«*R14SAV 
R15 



ZERO MALFUNCTION STATUS WORO, S320 

S32 PPF RE6 SAVE POINTER 

S32 PPF PSW SAVE POINTER 

FOR S3200. IS ONE 24-BlT ADDRESS. 

SYSTEM QUEUE INTPT NEW PSW 

RELOC/PROTECT INTPT NEW PSW 

DATA FORMAT FAULT NEW PSW 

RESTORE REGISTERS 
AND RETURN. 



* ****»****««********«*»***«****«»**»*****»***»»»* 
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13C6 






13C6 


DOOO 


4QDC 


13CA 


9F23 




13CC 


01E0 


0040 


13D0 


24A0 




13D2 


2306 




1304 


95AA 




1306 


50A0 




1308 


1540 




13DA 


08E0 




13DC 


08F1 






0000 


130E 


13DE 


4020 


154A 


13E2 


0230 


154C 


13E6 


OOEO 


1530 


13EA 


4520 


0A2A 


13EA 







1SEE 



?33? 



13F0 2308 





0000 


13F2 


13F2 






13F2 


4800 


1548 


13F6 


2133 




13F8 


0100 


40DC 




0000 


13FC 


13FC 


C200 


1530 


1400 


2464 




1402 


2302 




1404 


2466 




1406 


C660 


4630 


140A 


4060 


159C 


140E 


03 A A 


157A 


1412 


O2A0 


161C 


1416 


4810 


0A52 



1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 

1337 

1338 

1339 

1340 

1345 

1346 

13*7 

1348 

1349 

1350 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 



♦ EXTERNAL INTERRUPT HANDLER 



IXI16 



* 
» 
SXI32 



$XH6A 



IFZ ADC-2 

STH RO.INTSAV 

4CKR R2.R3 

L* R14«X'4Q» 

LIS R10.0 

BS SXI16A 



EPSR RIO. RIO 

DC X'50A0«.2(INTPSH> 

LOAR R14.R0 
LDAR R15.R1 

Eau * 

ELSE 

ENOC 

STH 

ST8 

STH 

CLH 

IFZ 

ELSE 

3£ 

ENOC 



R2.INT0FV 

R3.INTSTA 

R14.0L0PSW 

R2.C0NRA0R 

SKBINT-1 



SERRF4 



FOR 16-BIT PROCESSOR 
ACKNOWLEDGE THE INTERRUPT 
OLO PSW. EXTERNAL INTERRUPT 
AVOID $ERRF6 ON SERIES 16 

FOR 32-BIT PROCESSOR 
PSW AFTER INTERRUPT 
* ST R10.INTPSU 

OLD PSW 
OLD LOC 



INTERRUPTING DEVICE ADDRESS 
INTERRUPTING DEVICE STATUS 

CONSOLE READ-SIOE INTERRUPT ? 
IGNORE (FOR 1610.20.30J 
INTERRUPT NOT EXPECTED 



* 

sxll B 

* 

* To RETURN ON OLD PSW F0LL0WIN6 I/O INTERRUPT* 

* 

rfTopsw eou * 

IFZ AOC-2 

LH R0.MOD32 SERIES 32 ? 

3NZS RETOPSWl BRANCH? NO. 

LH RO.INTSAV RESTORE USER REGISTER. SERIES 16 

ENOC 

RETOPSWl EOU * 

LPSW OLDPSW 

* EXTERNAL INTERRUPT ERROR ROUTINE 

* 

SERRF4 LIS R6.4 ERROR TTF4 

BS XIERR1 

* -»--—_.»-- —.---«-—_... 

* DEVICE INTERRUPTED IN WR0N6 INTERRUPT LEVEL 
» 

SERRF6 LIS R6.6 ERR0R TTF6 

XIERR1 OHI R6.CF0* CONVERT TO ASCII 

STH R6.ERRNO 

LB R1Q.HEXTAB<R10» CONVERT LEVEL TO ASCII 

ST8 R10.ERRLVL AND STORE IN MESSAGE 

LH R1.PSW2 SPEC'O AS X»30F0» 
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141A 


9501 




mc 


41F0 


0D9C 


1420 


4860 


159C 


1424 


C560 


4636 


1*28 


21*6 




142A 


4060 


155C 


142E 


41F0 


OFBA 


1432 


1607 




1434 


4300 


0A82 



1438 


9500 




143fl 


oito 


0020 


143E 






143E 


4800 


1548 


1442 


233p 




1444 


5000 




1446 


1544 




1448 


5800 




144 A 


0040 




144C 


2330 




144E 


5000 




1450 


1544 




1452 


2110 




1454 


4300 


147C 


1458 


DlEO 


0038 


145C 


4000 


1546 


1460 


2400 




1462 


4000 


1544 


1466 


CSDO 


0001 


146A 


2339 




146C 


C800 


147C 


1470 


4000 


003E 


1474 


4810 


0A52 


1478 


9501 




147A 


2200 





147C 


C810 


1438 


1480 






1480 


4010 


OOSE 


14B4 


4800 


1548 


1488 


2333 




148A 


5010 





1383 

1384 
1385 
1386 
1387 
1388 
1369 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 

1404 

1*05 
1406 

1*07 
1408 
1409 
1410 
1*11 
1*12 
1413 
1*14 
1415 
1*16 
1*17 
1*18 
1*31 
1*32 
1*33 
1*3* 
1*35 
1*36 
1*37 
1*38 
1*39 
1440 
1*41 
1442 
1443 
1*44 



XIERR2 



EPSR 
9AL 

LH 

CLHI 

BNES 

STH 

BAL 

DAC 

8 



R0.R1 
R13«ERRALL 

R6.ERRN0 

R6.C*F6« 

XIERR2 

R6.ISITERR 

R15.*PRTNT 

INTLVLN 

0PTIN1 



ENSURE USER REGISTER SET 
•ERROR TTFN*. "DEV OOo 8TA SS» 
«PS« PPPP LOC LLLl' 

WRONG INTERRUPT LEVEL ? 
branch: NO. 
FORCE PRINT 

•INTERRUPTED IN LEVEL N' 
ENTER COMMAND MODE. 



* SPURIOUS INTERRUPT HANDLERS 
* 

* MACHINE HALFUNCTION INTERRUPT TRAP 

SFRRF3 



$MH16,1 



SllH.l 

*HI1.2 



EPSR 

LH 

IFZ 

LH 

SZS 

DC 

DC 

BZ 
DC 

BM 
B 

LH 

STH 

LIS 

STH 

THI 

82S 

LHI 

STH 

ELSE 

ENDC 

LH 

EPSR 

BS 



R13*R13 

R14»X«20« 

ADC -2 

R0.HOD3? 

SMPllfe.l 

X'50D0«,Z(MMSW> 

X•5800•,X•0040• 

smn.i 

X«5000«,Z(HMSW> 

$mm.2 
*hm.3 

R14.X'38« 

R13.HHSU+2 
RO.O 
RQ.MHSW 
R13»X'0001« 

shm.3 

R0.SHH.5 
R0.X'3E» 



R1.PSW2 
RO.R1 

* 



• AT THIS POINT. WE KNOW IT IS 

* POWER RESTORE REPORTS 'POWER 
* 

SMl.3 LDAI R1.*ERRF3 

IFZ AOC-2 
STH R1.X'3E» 
LH R0.H0D32 

BZS SMH.3A 
0C X'5010NX»003C 



PSW AT ENTRY TO HANDLFR » SAME CC 
S32 MALFUNCTION OLD PSW 

SERIES 32 ? 

branch: no.. 

* ST R13.HHSW 

* L R0,X«40« 

BRANCH: NOT S3200 

* ST RO.WMSW 

BRANCH: S3900 POWER fail 
BRANCH: OTHER S3200 malfunction 

si6 malfunction Old psw 
psw status at interrupt 

leading zeros 
power fail ? 
branch: no. 

change interrupt new loc 



SPEC«D AS X'SOFO* 

RE-ENABLE MALFUNCTION 

AND WAIT FOR POWER RESTORE. 

NOT A POWER FAIL. 

FAIL' AS REASON FOR INTERRUPT. 

RESTORE INTERRUPT VECTOR 



* ST RltX'SC* 
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148C 


003C 






0000 148E 


1445 
1446 
1448 
1449 


148ET 


2463 


1450 


1490 


2304 


1451 
1452 
1453 
1454 


1492 


2467 


1455 


1494 


2302 


1456 
1457 
1458 
1459 


1496 


2468 


1460 


1498 


23QE 


1*61 

1462 
1463 
1464 


149A 


2469 


1465 


149C 


230C 


1466 

1467 
« it * « 

1469 


149E 


2462 


1470 


1440 




1471 


14A0 


C820 n030 


1472 
1473 


14A4 


2308 


1474 
1475 


14A6 




1476 
1477 
1478 


14A6 


C820 n028 


1479 
1400 
1481 
1482 
1483 


14A4 


2465 


1484 


144C 


2304 


1485 
I486 
1487 


14AE 




1488 
1489 
1490 
1491 


14AE 


2461 


1492 


14B0 




1493 


1490 


C820 0048 


1494 
1495 
1496 

1497 



SUM. 3 A EQU * 

ELSE 

ENOC 
* 

LIS R6,3 ERROR TTF3 

BS SBS.COHN 

* OATA FORMAT FAULT INTERRUPT 

* 

SERRF7 LIS R6»7 ERROR TTF7 

8S SBS.COMm 

* -.-—-.»-_.—---—_„.__.. 

* SYSTEM OUEUE SERVICE INTERRUPT 
* 

*ERRF8 LIS R6i« ERROR TTF8 

SaS.CONM BS COMM 

* SUPERVISOR CALL INTERRUPT 

SERRF9 LIS R6.9 ERROR TTF9 

BS CONfl 

* lukbwNb i ria i imjv « * vr, initnnur i irtfir 
* 

SPRRF2 LIS R6t2 ERROR TTF2 

IFZ AOC-2 

LHI R2,X«30« WHERE TO FIND OLD PSW. SERIES 16 

ENDC 
as COMM 

* -------------------------- 

IFZ ADC-2 

* FLOATINS-PT ARITH FaULT INT TRAP (16 BIT PROCESSOR) 
* 

SERRF5A LHI R2,X«28» WHERE TO FIND OLD PSW, SERIES 16 

* --- — --—-----»-----——-. 

ENDC 

* RELOCATION/PROTECTION INT TRAP 

* 

SERRF5 LIS R6.5 ERROR TTF5 

3S COMM 

* -.- — .- — _..--..---..._.__ 

* ARITHMETIC FAULT INT 132-BIT PROCESSOR) TRAP 

IFZ ADC-2 

* FIXEO-PT OIVIDE FAULT INT (16-BIT PROCESSOR) TRAP 

ENOC 
« 
SFRRF1 LIS R6,l ERROR TTF1 

IFZ AOC»2 

LHI R2,X'46' WHERE TO FINO OLD PSW, SERIES 16 

ENOC 
• 

* ERROR TTFN PRINTOUT ROUTINE, EXPECTS USER RESISTER SET SELECTED. 
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0000 


14B4 


14B4 






1484 


4800 


1548 


1*88 


2136 




14'BA 


C560 


0003 


143E 


2333 




14C0 


D1E2 


0000 


14C4 


O0E0 


1530 


14C8 


C560 


n002 


i4cc 


2135 




14CE 


C5F0 


0A5C 


1402 


4330 


0CE8 


14D6 


C660 


4630 


1*0 A 


4060 


159C 


140E 


1+060 


155C 


14E2 


4810 


0A52 


14E6 


9501 




14E8 


41E0 


1152 


14EC 


tlFO 


1274 


14F0 


203* 




14F2 


41F0 


OFgo 


14F6 


41F0 


005C 


14FA 


4860 


159C 


14FE 


4060 


155C 


1502 


41E0 


0E50 


1506 


C560 


*633 


1504 


4230 


0AB2 


150E 






150E 


4810 


1546 


1512 


4800 


1548 


1516 


2333 




1516 


5810 




151A 


1544 






0000 


151C 


1S1C 


2»oe 




151E 


C820 


15E3 


1522 


41F0 


0F18 


1526 


41F0 


OFBA 


152 A 


150A 




152C 


4300 


OAAA 



1530 
1530 



0000 



1*98 


* 








1499 


coin 


ECU 


* 




1500 




1FZ 


ADC«2 




1501 




LH 


R0.HOD32 


SERIES 16 ? 


1502 




BNZS 


SCOMM1 


BRANCH! NO. 


1503 




CLHI 


R6.S 


FROM SERRFS 7 


1504 




3ES 


SCOMM1 


BRANCH! YES. 


1505 




LH 


R14iO(R2) 


SET INTERRUPT OLD PSW 


1506 




ENOC 






1507 


SCOMMl 


STM 


R14,0L0PSV 


OLD PSW, OLD LOC 


1508 




CLHI 


R6.2 


ILLEGAL INSTRUCTION? ** 


1509 




BNES 


SCOHM1A 


SKIP IF NO *♦ 


1510 




CLAI 


R15<IC0N 


ON BREAKPOINT? •* 


1511 




BE 


HALT9A 


YES. HALT PROCESSOR ** 


1512 


SC OMNIA 


OH1 


R6.C'F0« 


CONVERT ERROR NUMBER TO ASCII 


1513 




STH 


R6.ERRNO 


ERROR NUMBER 


1514 




STH 


R6.ISITERR 


FORCE ERROR MESSAGE PRINT 


1515 




LH 


R1.PSW2 


SPEC'O AS X'SOFO' 


1516 




EPSR 


RO.Rl 


ENSURE USER REGISTER SET 


1517 


SC0HH2 


BAL 


R14.STC0N 


SET UP S SELECT KEYBOARD DEVICE 


1518 




BAL 


Rl5tTSTP)U 


TEST IF KEYBOARD OFF-LINE 


1519 




BNZS 


SCOHM2 


WAIT FOR ON-LINE. 


1580 




BAL 


R15iCRLF 


SEND LINE FEED 


1521 




BAL 


R15«ERR 


PRINT 'ERROR XXFN» 


1522 




LH 


R61ERRNO 


SET ERROR NUMBER 


1523 




STH 


R6.ISITrRR 


FORCE PRINT 


1524 




BAL 


Rl4tERRPLl 


PRINT «PSW PPPP LOC LLLL« 


1525 




CLHI 


R6.CF3" 


MACHINE MALFUNCTION ? 


1526 




BNE 


OPTlNl 


BRANCH! NO. 


1527 


* 








1528 




IFZ 


ADC -2 




1529 




LH 


Rl.HHSW+2 


ASSUME SERIES 16 


1530 




LH 


R0tMOD32 


SERIES 32 ? 


1531 




BZS 


SC0MM3 


BRANCH! NO. 


1532 




OC 


X'5810«,Z<NMSWl 


• L Rl.MMSW 


1533 


SC0HM3 


E0<J 


* 




1534 




ELSE 






1536 




ENDC 






1537 




LIS 


Ro.e 


0I6IT COUNT 


1538 




LOAI 


R2»ASCI*SW 


DESTINATION 


1539 




BAL 


R15«HEXASC 


CONVERT 3200 HMSH FOR PRINT 


1540 




BAL 


RISiSPRTNT 




1541 




OAC 


mmswhsg 


•STATUS = XXXXXXXX* 


1542 




a 


OPTIN 


6ET COMMAND INPUT 


1543 


* ***•**»***«****•**•****•»»*« 




1544 


* ETPE 


CONSTANTS * TABLES 




1545 
1546 

1547 




ALI6N 


8 




OLDPSW 


DCX 


0000 . 0000 1 0000 t 000 






1 ex 'i 

4 JJC 




1534 


0000 


1536 


0000 
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EXEC - ETPE R05P1 



1538 


0000 








153A 


oooo 








153C 


uooo 








153E 


oouo 








1540 


couo 


oooo 






1544 


uuuo 








1546 


0000 








15*8 


0000 








154A 


0000 

oooo 


154A 






154C 


00 

oooo 


154C 






1540 


60 








154E 


40 








154F 


EO 








1550 










1550 


oooo 








1552 


oooo 








1554 


oooo 








1556 


oooo 








1558 


oooo 








1554 


oooo 








155C 


oooo 








1S5E 


oooo 








1560 


oouo 








1562 


oooo 








156* 


oooo 








1566 


oooo 








1568 


oooo 








156A 


oooo 








156C 


oooo 








156C 


oooo 








1570 


oooo 








1572 


oooo 








1574 


oooo 








1576 


oooo 








1578 


oooo 








157A 


3031 


3233 


3435 


3637 


1582 


3839 


4142 


4344 


45*6 


158A 


5445 


5354 


2020 


2A2A 


1592 


00 

oooo 


1590 






1594 










1594 


4552 


524F 


5220 


2A2A 


159C 


2A2A 

oooo 

oooo 


2020 
159A 
159C 


ODOA 


00 



1548 rJEWPSU OCX OOOO, OOOO. OOOQtOOOO 



1549 

155(1 

1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1590 



1NTPSW 

MMSW 



DCY 

OCX 



BRKVECT OC 

SBRKFLG OCX 

IQSAVE OCX 

ISlTERR OCX 

NOERR OCX 

SELTST OCX 

SLlNEPOS OCX 

SPRTFLG OCX 

SUASOU OCX 

TOTAL OCX 

TOTERR OCX 

BT&STNO OCX 

COUNT OCX 

SPAUSE OCX 

SSHUTOWN OAC 

OUT.SAV OAC 

8RK.SAV OAC 

SET.RTN DAC 

HEXTAB OB 



oooo. oooo 



H0D32 


OCX 





INTDEV 


OCX 





ERROEW 


EQU 


INTOEV 


intsta 


OB 





ERRSTA 


EQU 


INTSTA 


NflKH 


OB 


X'80» 


I NCR 


DB 


X'40' 


SCLKSTRT 


OB 


X'EO* 




OB 


* 


SINK 


OC 





SCONPAS 


OCX 





SLSTPAS 


OCX 






Z(0) 



o 




















(SERIES 32 ONLY) 

MACHINE MALFUNCTION STATUS 



non-zero. series 3z 
interrupting oev adr 
error device # 
interrupting oev status 
erroneous status 
console normal mode 
console incremental mode 
pic cmo oisarm+start 
(align on kw boundary) 
bit Bucket 

set when console on pasla/palm 
set when list device on pasla 

break key vector 
set if break key detected 
current i/o identifiers 
message level 

ZERO s 'NO ERROR' 

HIGHEST SELECTED TEST * 

CURRENT SOUTBUF POSITION 

FLAG USED FOR DEFERRING BRK ACKNOWLED 

ZERO IF I/O DEVICE ON-LINE 

TIMES WHOLE TEST RAN 

TOTAL ERRORS DETECTED 

CURRENT TEST * IN BINaRY 

TIMES CURRENT TEST RAN 

SET DURING TRANSMISSION PAUSE 

A (USER-DEFINED SHUTDOWN ROUTINE) 

OUTCHR RETURN ADDRESS SAVE 

TSTBRK RETURN ADDRESS SAVE 

SSETUP RETURN ADDRESS SAVE 



C«0123456789ABCDEF» HEXADECIMAL DIGITS 



1591 *- 

1592 * ETPE MESSAGES 

1593 * 

1594 TSTHSG DB C'TEST *»«.X»0O' 



1595 MTESTNO EQU TSTMSS+6 

1596 ALIGN 2 

1597 ERRHSG OB C'ERROR »«** '.lS.lOtO 



MASTER TEST NUMBER (ASCII) 



1598 ETESTNO EQU 

1599 ERRNO EQU 



ERRMSG+6 
ERRMSG+a 



STORED BY ETPE 

STORE ERRNO AS CHAR CONSTANT 
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15A3 


5*4F 


5*41 4C20 2020 


1600 


T0THS6 


DB 


C«TOTAL TOTERR'.lS.lO.O 


15A8 


544F 


5**5 5252 OOOA 










15BJ 


00 












15P4 


4E4F 


?045 5252 4F52 


1601 


NOERHSG 


DB 


C'NO ERROR' .13.10,0 


15BC 


0O0A 


00 










15BF 


4445 


5620 2A2A 2A20 


1602 


DEVHSG 


DB 


C'DEV *** STA **'. 13.10.0 


15C7 


535l» 


4120 2A2A OOOA 










15CF 


00 














0000 


15C3 


1603 


ASCIDEV 


ECU 


DEVHSG+U 




0000 


15C7 


1604 


STAHSS 


EQU 


OEVMSG+8 




0000 


15CB 


1605 


ASCISTA 


EQU 


DEVMSG+12 


15D0 


4445 


■i620 2A2A 2A0O 


1606 


DEVHSG2 


OB 


C'OEV *.*«, 13.10.0 


1508 


0A00 














0000 


150* 


1607 


ASCX0EV2 


EQU 


DEVHSG2** 


15DA 


5354 


4154 5553 2030 


1608 


MHSWHS6 


OB 


C'STATUS = '.13.10,0 


15E2 


2020 


2020 2020 2020 










15EA 


2000 


UAOO 












0000 


15E3 


1609 


ascihsw 


EQU 


HFISHMSG+9 


15EE 


5053 


5720 2020 2020 


1610 


PSWHSG 


OB 


C'PSW LOC '.13.10,0 


15F6 


2020 


2020 4C4F 4320 










15F£ 


2020 


2020 2020 OOOA 










1606 


00 














0000 


15F2 


1611 


ASCIPSW 


EQU 


PSWHSG+4 




0000 


15FA 


1612 


LOCMSG 


EQU 


PSWHSG+12 




OOUO 


15FE 


1613 


A«?CILOC 


EQU 


PSWWSG+16 


1607 


494E 


5445 5252 5550 


1614 


INTLVL" 


OB 


C INTERRUPTED IN LEVEL *'. 13.10.0 


160F 


5**5 


4420 494E 204C 










1617 


4556 


454C 202A OOOA 










161F 


00 














0000 


161C 


1615 


ERRLVL 


EQU 


INTLVLH+21 


1620 


454E 


4420 4F46 2054 


1616 


EOTHSS 


DB 


C'ENO OF TEST'. 13, 10.0 


1628 


4553 


5400 OAOO 










1630 






1617 




ALIGN 


4 


1630 


OOOA 


3F00 OAOO 


1618 


QMSG 


OB 


X'00'.X'0A',C'7',13«10.0 CR.LF.7. 


1636 


2A20 


00 


1619 


ansg 


OB 


C'*'.X'20',0 


1639 


FFFF 


FFFF FFFF FFFF 


1620 


brkmsg 


D8 


-1,-1.-1,-1.-1,-1.-1,-1 


16*1 


4252 


4541 4320 5445 


1621 




DB 


C'BREAK TERMINATION', 13. 10,0 


1649 


52*0 


494E 4154 494F 










1651 


4EQD 


OAOO 












0000 


1654 


1622 


SBRKENO 


EQU 


*-l 


1655 


FFFF 


FFFF OOOA 00 


1623 


nullbsg 


OB 


-1, -1,-1, •1,13,10,0 




0000 


1659 


1624 


CRLFMSG 


EQU 


NULLHSG+4 



165C 



HALFUORO ALIGN 
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165C 

0000 165C 

165C 494E 444S 5620 

1662 0B66 

1664 OO85 

1666 0000 

1668 53*5 «C43 4831 

166E 0B7E 

1670 0000 

1672 0000 

]674 4F55 5444 4556 

167A 0B86 

167C 0000 

167E 0000 

1680 5345 <»C*3 4832 

1686 0B7E 

1688 0000 

168A 0000 

16BC 4944 52*9 5645 

Ao*e vdvc 

169<t 0000 

1696 0000 

1698 4F44 52*9 5645 

169E 0BCE 

16A0 0000 

16A2 0000 

16A4 564F 4C55 4D45 

16AA 0BCE 

16AC 0001 

16AE 0000 

000o 16BO 

16B0 4E4F 4D53 4?20 

16B6 08CE 

16BS 0000 

168A 0000 

169C 4453 4352 5054 

16C2 OB06 

16C4 4040 

16C6 4420 

16C8 4F53 4944 2020 

16CE 0806 

1600 4044 

1602 4C32 

■ 0000 1604 

1604 4F50 5449 4F4E 

160A 0000 

160C 0000 

160E 0000 

0000 160E 



1627 ♦ 

1628 * OPTION/COWHAND TABLE 

1629 * STRUCTURE DEFINED BY »SSTRUC1» AT TOP OF LISTING 

1630 ALIGN 4 

1631 * 

1632 OPT EQU * 

1633 IMDEV DC C'INOEV ♦ .Z< AOR.XXX) tX«0085' tX»0000« 



1634 SELCH1 DC C'SELCHl'.ZIADRliX'OOOO'.X'OOOO* 

1635 OUTDEV DC C'nUTDEv'.ZUDR.XXX) tX»0000».X»0000' 

1636 SELCH2 DC C«SELCH?» f 2( AORJ .X«0000» .X* 0000» 

1637 IORIVE DC C • IDRIVF* »Z<L£VEL J .X' 0000« .X' 0000* 

1638 OORIVE DC C«ODRIVF« »Z< LEVEL! .X'OOOO* tX»0000« 

1639 VOLUME DC C» vOLUHF • tZCLEVEL) .X»0001« ,X«0000' 



1640 0PTEND2 EOU * END OF PRINTING OPTIONS 

1641 NONSG OC CNOHSG • .Z (LEVEL) ,X« 0000« ^'OOOO' 



1642 0<;CRPT DC C'DSCRPT'tZlBIGVALUEJ.C'Wt'tC'O ' 

1643 OS10 DC C'OSID • .Z<BIGVALUE» «C 'MO* .CL2' 



1644 OPTENO EOu » ENO OF OPTIONS WITH VALUES 

16<»5 OPTION DC C»OPTIOfi|»,X , 0000«,X , 0000 , ,X , 0000» 



1646 SLINCNT E8U OPTlON*»v*LU2 PRINTOUT LINE COUNTER 
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16E0 


*3*F 


4E20 2020 


16E6 


0000 




16E8 


0000 




16EA 


0000 




16EC 


4855 


494C 4420 


16F2 


OBCE 




16F4 


0000 




16F& 


oooo 




16F8 


56*5 


52*9 4659 


16FE 


OBCE 




1700 


0000 




1702 


OOOO 




170* 


4255 


494C 1*56 


170A 


OBCE 




170C 


0000 




170E 


0000 




1710 


53*5 


S155 2020 


1716 


OB7E 




1718 


0000 




171ft 


. 0000 




171C 


4ES5 


40*2 *552 


1722 


OOOOF 




** U0G2 


• * 


06NUM 


1724 


oooo 




1726 


oooo 




mn, 


4E41 


4045 2020 


172E 


OOOOF 




*» 11002 


** 


PNAME 


1730 


0OU0 




1732 


OOOO 




173<* 


464C 


41*7 2020 


173A 


OBCE 




173C 


0000 




173E 


0000 




171*0 


50<*e 


*720 2020 


174b 


087E 




1748 


oooo 




17*A 


oooo 




17*C 


50*4 


4220 2020 


1752 


OOOOF 


** U002 


** 


PDB.CriO 


175* 


oooo 




1756 


oooo 




1758 


4C49 


40*9 5*53 


175E 


OOOOF 


** U002 


• • 


PLIWITS 


1760 


OOOO 




1762 


OOOO 




1764 


5752 


4954 *520 


176A 


OOOOF 


** U002 


** 


URT.CMD 


176C 


OOOO 




176E 


OOOO 





16*7 CON DC C'CON • ,X« OOOO •. X'0000 • i X" OOOO • 



16*6 BUILD DC C'BUILO • .ZUEVEL ) ,X»0000« .X'OOOO' 



1649 VERIFY OC C•VERIFT•^2^LEVEL^»X•0000•.X»0000• 



16S0 BU1L0V DC C 'BUILOV .ZCLEVEL) ,X'0000« ,X«0000 ' 



1651 SEQUENCE DC C'SEQU • .Z< ADR) .X'OOOO* ,X»0000» 



1652 NUMBER OC C'NUHBER' <Z(06NU«I «X»0000» tX'OOOO' 



1653 NAHE OC C'NAHE • ,Z(PNANE> ,X»0000« .X'OOOO' 



165* FLAG OC C'FLAG • tZ (LEVEL) ,X»0000* »X«0000» 



1655 PACKAGE DC C'PKG • ,ZI ADRt tX'OOOO' ,X'0000« 



1656 POBCnD OC C'pDB « .2(PDB.CwO» »X'0000» ,X'00O0' 



1657 LIMITS DC C»Ll«ITS« .Z<PLINITS> .X'OOOO' tX'OOOO' 



1658 WRITE OC C'WRITE • .Z1WRT.CA0* ^•OOOO' .X'OOOO' 
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1770 


FFFF 








1659 
1660 


* 


OCX 


FFFF 


END OF TABLE 


1772 


FFFF 








1661 


OEVSAOR 


OCX 


FFFF 


INTERRUPTING DEVICE TABLE 


1771* 


FFFF 








1662 


oevint 


OCX 


FFFF 


INTERRUPTING DEVICES 


1776 


0000 








1663 


intlvl 


DCX 


oooo 




1778 
177A 


8000 
0000 








1664 


OEFTESTS 


i ocx 


6000,0000 




177C 


1B8C 








1665 


TESTS 


DAC 


RUN.CHO 




177E 


0001 








1666 
1667 


MAXTST 

* 


OCX 


1 




1760 


434f 


4040 


4F4E 


2040 


1668 


TlTtE 


DC 


C* COMMON HMO CROSS 


: GENERATOR 06-252R04 ' 


1788 


4D44 


2043 


524F 


5353 












1790 


2047 


454E 


4552 


4154 












1798 


4FS2 


2030 


362D 


3235 












17A0 


3252 


3034 


2020 


2020 












17A8 


2020 


2020 
















17AC 


5052 


454C 


4940 




1669 




DC 


C»PRELIM« 




17B2 


ODOA 








1670 




DC 


X'ODOA'.X'OOOO' 




1784 


0000 








1671 
1672 


* 
* 








17B6 


2400 








1673 


anuiLOV 


CIS 


RO.X'OO' 


NON-ZERO (CARRIAGE RETURN) 


1788 


4000 


1A16 






1674 




STH 


RO.NOSTOP 


SET AUTO VERIFY FLAG 


179C 


2400 








i«,75 




! IS 


PO*0 


ZERO FOR BUILD PASS 


178E 


2306 








1676 




BS 


SBV 


TO COMMON SEQUENCE 


17C0 


2400 








1677 


aqUILD 


LIS 


R0,0 


ZERO TO BUILD 


17C2 


4000 


1A16 






1678 




STH 


RO.NOSTOP 


KILL AUTO-VERIFY FLAG 


17C6 


2302 








1679 




8S 


SBV 




17C8 


2401 








1660 


avERIFY 


LIS 


R0.1 


ONE TO VERIFY 


17CA 


4000 


1A18 






1681 


3SV 


STH 


RO.VERIFLAG 


SET VERIFY FLAG 


17CE 


C540 


0020 






1682 




CLHI 


R4,X«20« 


SPACE FOLLOWS COMMAND? 


17D2 


4230 


0CA6 






1683 




BNE 


SRUNIT 


do Carriage return check if mo 


1706 


41E0 


OEBA 






1684 




SAL 


R14.0PTVAL 


GO GET VOLUME INFORMATION 


17DA 


48E1 


0006 






1685 




LH 


R14.»CKR0UT(R1> 




17DE 


2332 








1686 




B2S 


3BVI 




17E0 


01FE 








1687 




BALR 


R15»R14 


PROCESS OPTION 


17E2 


■♦061 


0008 






1668 


3BV1 


STH 


R6.SVALUHR11 


STORE VALUE 


17E6 


4060 


16AC 






1689 




STH 


R6.V0LUHE+SVALU1 


SET VOLUME OPTION TOO 


17EA 


4300 


0CA6 






1690 
1691 
1692 
1693 


* 
• 
* 


B 


SRUN1T 


GO DO CR CHECK 












1694 


• INFLAG 


- 0ISKTYP1 


OUTFLAG - DISKTYP2 












1695 


* 


1 




1 MAGTAPE 












1696 


* 


2 




2 FLOPPY 












1697 


* 


3 


3 


3 3 10 MB 












1698 


s 


4 


4 


4 4 80 MB 












1699 


* 


5 


6 


5 6 300 MB 












1700 


* 


















1701 


* VERIFY 


INDEV AND OUTDEV 














1702 


• 








17EE 


40F0 


1A6E 






1703 


INIT 


STH 


R15.R15SAWE 




17F2 


C8F0 


2A2A 






1704 




LHI 


Rl5tC»**» 
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17F6 


40FO 


159C 


17FA 


24F0 




17FC 


40FO 


160E 


1800 


40F0 


1A70 


1804 


40F0 


1A72 


1808 


4820 


1664 


180C 


4830 


1666 


1810 


4840 


1670 


1814 


41E0 


199E 


1818 


4330 


187C 


leic 


41E0 


18C2 


1820 


2336 




1822 


41E0 


180E 


1826 


2335 




1828 


C850 


3478 


182C 


4300 


1CS0 


1830 


40FO 


IA4E 


183* 


C4F0 


0007 


1836 


D30F 


1AE0 


183C 


4000 


IA6A 


1840 


C500 


0008 


1844 


2188 




1846 


C500 


UOOC 


1S4A 


2365 




184C 


C800 


0010 


1850 


4000 


1A70 


1854 


24F0 




1856 


4820 


167C 


185A 


4830 


167E 


165E 


4840 


1688 


1862 


41E0 


18C2 


1866 


233F 




1866 


41E0 


199E 


186C 


233C 




186E 


41E0 


180E 


1872 


2339 




1874 


C850 


33BC 


1878 


4300 


1C50 


187C 


40F0 


1A4E 


1880 


4020 


167C 


1884 


40F0 


1A50 


1888 


D30F 


1AE0 


188C 


4000 


1A6C 


1890 


C500 


0008 


1894 


2168 




1896 


CSOO 


ooac 


189A 


2385 




189C 


CSOO 


0010 


18A0 


4000 


1A72 


18A4 


4800 


16A0 


i a a ft 


rTnn 


rtnm 








18AC 


4000 


1694 


18B0 


48F0 


1A6E 



1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 

* Tev 

* ' 33 

1756 
1757 



STH 
LIS 

STH 
STH 
STH 
LH 
LH 
LH 
BAL 
SE 
INITQ001 BAL 
BE 
BAL 
8E 
LDAI 

e 

1NIT0002 STH 
NHI 
LB 
STH 
CLHI 
BL 
CLHI 
BNL 
LH1 
STH 

INITOUT LIS 
LH 
LH 
LH 
BAL 
3E 
BAL 
BE 
BAL 
BE 

LOAJ 
3 

INIT003F STH 
STH 

INIT0003 STH 
LB 
STH 
CLHI 
SL 
CLHI 
BNL 
LHI 
STH 

INIT0004 LH 

Xnl 

STH 
LH 



R15'ERRn0 

R15.0 

R15t*LINCNT 

Rl5'FlRSTHDI 

R15»FlRsTHD0 

R2«INDEV+*VALUl 

R3,IN0EV*SVALU2 

R4.SELCH1+SVALU1 

R14tFM0CHK 

INIT003F 

R14«HTCHCK 

INIT0002 

R14.DISKCHK 

INITOOO? 

R5.SPECERR2 

CONMSGl 

RlSflNFLAG 

R15.7 

R0.DTABIR15! 

ROtDISKTYPl 

RO18 

INITOUT 

R0.12 

INITOUT 

ROtX'lO' 

RO.FIRSTHOI 

R15.0 

R2.OUT0EV+SVALU1 

R3t0UT0fV+SVALU2 

R4.SELCH2+SVALU1 

R14.NTCHCK 

INITOOO* 

R14«FHDCHK 

INIT0003 

R14.DISKCHK 

INIT0003 

R5tSPECERR 

CONHSG1 

R15UNFLAG 

R2iOUTDEV+SVALUl 

Rl5tOUTFLAG 

R0.DTAB(R15» 

R0.0ISKTYP2 

R0.8 

INIT0004 

R0.12 

INIT0004 

RQ.X'10' 

RO.FIRSTHOO 

RO.OORIVE+SVALU1 

RO» *• 

R0.IDRIVE+SVALU1 

R15,R15SAVE 



NO TEST NUMBERS 

DEVICE CODE PRESET 

CLEAR LISTING LINE COUNT 

FIRST HEAD ON INPUT DISK R04 

FIRST HEAD ON OUTPUT OlSK R04 

INPUT DEVICE ADDRESS 

POSSIBLE CONTROLLER ADDRESS 

POSSIBLE SELCH ADORESr 

ACCEPT FLOPPY AS INPUT AND OUTPUT 

TEST IF MAS TAPE 

ACCEPTABLE MAG TAPE SPEC 

TEST IF OlSK 

ACCEPTABLE DISK SPEC 

'INVALIO INOEV SPECIFICATION' 

SAVE INPUT DEVICE CODE 



CDD DISK? 

SKIP IF NO 

« 

« 

ON CDD REMOVABLE, 

FIRST HEAD IS HEAD '10» 

CLEAR DEVICE CODE 

OUTPUT OEVICE ADDRESS 

POSSIBLE CONTROLLER ADDRESS 

POSSIBLE SELCH 

TEST IF MAG TAPE 

ACCEPT HAG TAPE OUTPUT 

TEST IF FLOPPY 

ACCEPT FLOPPY OUTPUT 

TEST IF OlSK OUTPUT 

SKIP IF YES 

'INVALID OUTDEV SPECIFICATION' 

STORE INPUT OEVICE CODE 
FORCE OUTOEV=lNDEV 
SAVE OUTPUT DEVICE CODE 

OUTPUT OEVICE DISK TYPE 

COO REMOVABLE? 

SKIP IF NO 

• 

* 

* 

• 

OUTPUT DRIVE NUMBER 

FLIP TO GET INPUT DRIVE NUnBER 

STORE IT 



R04 
R04 
R04 
R04 
R04 
R04 



R04 
R04 
R04 
R04 
R04 
R04 



COMMON MHO CROSS GENERATOR 06-252R04H96A13 
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DATA CONSTANTS 8 CHECK ROUTINES 



18B4 


4520 1664 


1758 




CLH 


R2.INDEV+SVALU1 


186S 


023F 


1759 




BNER 


R15 


18BA 


C850 3*63 


1760 




LOAI 


R5.SPECERR1 


18BE 


4300 1C50 


1761 
1762 
17fe3 


* 
* 


3 


CONMSG1 


18C2 


0802 


1764 


MTCHCK 


LOAR 


R0.R2 


18C4 


rttOO QQ9E 


1765 




NHI 


Ro.x'ac 


16C8 


C500 0084 


1766 




CLHI 


R0,X'84» 


18CC 


023E 


1767 




BNER 


R14 


18CE 


0802 


1768 




LOAR 


R0.R2 


1800 


DDOO 154C 


1769 




SS 


RO.ERRSTA 


1804 


4210 19C4 


1770 




BTC 


l.BAOSTA 


18D8 


24F1 


1771 




LIS 


R15.1 


180A 


0833 


1772 




LOAR 


R3.R3 


180C 


030E 


1773 
1774 


« 


BR 


R14 


I8DE 


0802 


1775 


OlSKCHK 


LOAR 


R0.R2 


18E0 


24F3 


1776 




LIS 


R15.3 


18E2 


0523 


1777 


DISKCHK1 


CLAR 


R2.R3 


16E4 


2333 


1778 




BES 


0ISKCHK2 


18E6 


0534 


1779 




CLAR 


R3.R* 


18E8 


2133 


1780 




BNES 


DISKCHK* 


18F.A 


08tE 


1781 


GlSKCn^e 


LOAR 


S14sR14 


18EC 


030E 


1782 




BR 


R14 


18EE 


0803 


1783 


0ISKCHK3 


LDAR 


R0.R3 


18F0 


2233 


1784 




BZS 


0ISKCHK8 


18F2 


DEOO 1A35 


1785 




OC 


RO.ORESET 


18F6 


0000 154C 


1786 




SS 


RO.ERRSTA 


18FA 


4240 19C4 


1787 




BTC 


4.BA0STA 


18FE 


0804 


1788 




LOAR 


R0.R4 


1900 


223B 


1789 




3ZS 


DISKCHK? 


1902 


DEOO 1A30 


1790 




OC 


RO, STOPS 


1906 


ODOO 154C 


1791 




SS 


RO.ERRSTA 


190A 


4240 19C4 


1792 




BTC 


4.BADSTA 


190E 


2450 


1793 




LIS 


R5.0 


1910 


OE20 1A38 


1794 




OC 


R2.REST0R 


19m 


0865 


1795 


RPS 


LOAR 


R6.R5 


1916 


9B25 


1796 




ROR 


R2.R5 


1918 


0556 


1797 




CLAR 


R5.R6 


191A 


2283 


1798 




BNLS 


RPS 


191C 


C560 0019 


1799 




CLHI 


R6.25 


1920 


2383 


1800 
1801 


« 


BNLS 


MBBIG 


1922 


2400 


180? 


0ISKCHK4 


LIS 


RO.O 


1924 


030E 


1803 




BR 


R14 


1926 


24F4 


1804 
1805 
1806 
1807 
1808 
1809 
1810 


MBBI6 

* 
* 
* 
* 
* 
* 


LIS 


R13.4 



INOEV & OUTOEV CANNOT BE SAME R04 
* R04 

•INDEV/OUTOEV CONFLICT' 



COPY DEVICE NUMBER 
ACCEPT 84. 9tM.0»iE»tF* 
ACCEPT 85. 95...D5.E5.FO 
NOT A HAG TAPE 
COPY OEVICE NUMBER 

LEAVE IF DU 

DEVICE CODE 1 FOR HAG T*PE 
DON'T ACCEPT IF CONTROLLER 
ADDRESS SPECIFIED 

COPY OEVICE NUMBER 

POSSIBLE DEVICE CODE FOR DISK 

TROUBLE IF DRIVEsCONTROLLER 

TROUBLE IF CONTROLLER = SELCH 

LEAVE! CC NOT ZERO 
HAS TO BE A CONTROLLER 
IF NO. CAN'T BE A DISK 
CONTROLLER RESET 

EXIT IF BAD STATUS 
HAS TO BE A SELCH 
NOT A DISK IF NO SELCH 
STOP SELCH 

BAO STATUS EXIT 

DRIVE RESTORE 

LAST RPS 

THIS RPS 

COMPARE 

LOOP UNTIL SEE SMALLER RPS 

CHECK SIZE OF LAST RPS 

NOT A 10 MB DISK 

DEVICE CODE IN R15 = 3 

CLEAR CONDITION COOE 

DEVICE CODES 4 THROUGH 9 

R15 2 4 FOR 80 MB DISK 

R15 = 5 FOR 300 MB DISK 

R15 s 6 FOR 16 MB COO REMOVABLE 

R15 - 7 FOR 16 MB CDD FIXED 

R15 e 8 FOR 48 MB COD FIXED 

R15 a 9 FOR 80 MB COO FlXEO 



COMMON MHO CROSS GENERATOR Q6-232R04M96A13 
OATA CONSTANTS 8 CHECK ROUTINES 



1928 


2480 




192A 


249l 




192C 


24A0 




192E 


41D0 


2B4C 


1932 


moo 


2820 


1936 


OE20 


1A39 


193A 


9035 




193C 


2221 




193E 


9A3A 




1940 


0819 




1942 


911A 




1944 


0618 




1946 


9831 




1948 


OE30 


IA34 


194C 


9035 




194E 


2221 




1950 


C350 


0060 


1954 


2337 




1956 


DE20 


noooF 


U002 


** 


liSMCLFT 


195A 


9D35 




195C 


2221 




195E 


4300 


1922 


1962 


2480 




1964 


2498 




1966 


24 A 




1968 


4100 


2B4C 


196C 


4100 


2B20 


1970 


OE20 


1A39 


1974 


9035 




1976 


2221 




1978 


9A3A 




197A 


0819 




197C 


911A 




197E 


0618 




1980 


9831 




1982 


OE30 


1A34 


1986 


9D35 




1988 


2221 




198A 


C350 


0060 


196E 


2132 




1990 


26F1 




1992 


OE2o 


1A35 


1996 


9035 




1998 


2221 




199A 


4300 


1922 


199E 


0633 




19A0 


023E 




19A2 


0802 




19A4 


C400 


OOCF 


19A8 


C500 


00C1 



1811 


LIS 


R8,0 


1812 


LIS 


R9,l 


1813 


LIS 


R10.0 


1814 


BAL 


R13tDlSKWAIT 


1815 


SAL 


R13»FILESET 


1816 


OC 


R2.SEEK 


1817 


SSR 


R3<R5 


1818 


BF3S 


2.1 


1619 


WDR 


R3.R10 


1820 


LOAR 


R1.R9 


1821 


SLLS 


R1.10 


1822 


OAR 


Rl.RS 


1823 


WHR 


R3.R1 


1824 


OC 


R3.RCHECK 


1825 


SSR 


R3.R5 


1626 


BFBS 


2.1 


1827 


THI 


R5.X«60« 


1628 


BZ 


DISKCHK5 


1629 


OC 


R2.NSHCLFT 


1830 


* 




1631 


SSR 


R3.R5 


1832 


BFBS 


2.1 


1833 


B 


DISKCHKu 


1834 


DTSKCHK5 LIS 


R8.0 


1835 


LIS 


R9.8 


1836 


LIS 


R10.0 


1837 


BAL 


R13.0ISKWAIT 


1838 


BAL 


R13.FILFSET 


1839 


OC 


R2.SEEK 


1840 


SSR 


R3.R5 


1841 


BFBS 


2.1 


1842 


WDR 


R3.R10 


1843 


LOAR 


R1.R9 


1844 


SLLS 


R1.10 


1845 


OAR 


R1.R8 


1846 


WHS 


R3.R1 


1647 


OC 


R3.RCHECK 


1848 


SSR 


R3.R5 


1649 


BFBS 


2.1 


1850 


THI 


R5.X'60« 


1851 


BNZS 


OISKCHK& 


1852 


AIS 


R1S.1 


1853 


0ISKCHK6 OC 


R2.0RESET 


1854 


SSR 


R3.R5 


1855 


BFBS 


2.1 


1856 


B 


DISKCHK4 


1657 


* 




1858 


FPIDCHK LOAR 


R3.R3 


1859 


BNZR 


R14 


I860 


LOAR 


R0.R2 


1861 


NHI 


RO.X'CF' 


1862 


CLHI 


RO.X'Cl' 
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CtlInDER 

HEAD 

SECTOR 

SET UP FILE TO SEEK 
00 A SEEK TO HEAD 1 

CONTROLLER IDLE 

WRITE SECTOR NUMBER To CONTROLLER 

HEAD NUMBER 

POSITION BITS 

COMBINE WITH CYLINDER NUMBER 

SEND TO CONTROLLER 

DO A READCHECK 

WAIT FOR CONTROLLER lOLE 

SEEK INC OR ILL ADR? 
BRANCH IF NO, NOT CDD 
CLEAR FAULT STATUS BITS 



CONTROLLER tDLE 

Return 
cylinder 

HEAD 
SECTOR 

SET UP FILF TO SEEK 
00 A SEEK TO HEAD 8 

CONTROLLER IDLE 

WRITE SECTOR NUMBER To CONTROLLER 

HEAD NUMBER 

POSITION BITS 

COMBINE WITH CYLINDER NUMBER 

SEND TO CONTROLLER 

DO A READCHECK 

WAIT FOR CONTROLLER InLE 

SEEK INC OR ILL ADR? 
BRANCH IF YES (80 MB> 
CODE 5 - 300 MB DISK 

CONTROLLER IDLE 

RETURN 

LEAVE IF CONTROLLER SPECIFIED 

COPY OEVICE NUMBER 
ACCEPT CliOl.El.Fl 
CHECK IF FLOPPY 



PREVIOUS ERROR 0;\l PAGE 30 



COMMON HHO CROSS GENERATOR 06-232R04H96A13 
DATA CONSTANTS * CHECK ROUTINES 



19AC 


023E 




1863 




BNER 


R14 


19AE 


2*07 




1864 




LIS 


R0.7 


1980 


9E20 




1865 


FWDCHK1 


OCR 


R2.R0 


19B2 


9O20 




1866 




SSR 


R2tR0 


19B4 


2221 




1867 




BFBS 


2.1 


1996 


2408 




1668 




LIS 


R0.8 


1988 


9E20 




1869 




OCR 


R2.R0 


19BA 


9020 




1870 




SSR 


R2.R0 


19BC 


2221 




1871 




BFBS 


2.1 


19BE 


24F2 




1872 




LIS 


R15.2 


19C0 


2400 




1873 




LIS 


RO.O 


19C2 


030E 




1874 
1875 
1876 


* 
* 


BR 


R14 


19C4 


4000 


154A 


1877 


BAOSTA 


STH 


RO.ERRDEV 


19C8 


41F0 


007E 


1878 




BA|_ 


R13.ERR0S 


19CC 


4300 


OAAA 


1879 




B 


OPTIN 



PASE 35 11801:58 08/31/81 

no. return 

issue stop cohhano 

wait for controller idle 

issue reset comnano 

wait for controller idle 

OEVlcE CODE FOR FLOPPY 

clear condition code 



save device number 
erroneous status 



COMMON MHO CROSS GENERATOR Q6-252R04M96A13 
O.S, FORMAT EQUATES 
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0000 


0000 


0000 


0001* 


0000 


0008 


0000 


000c 


0000 


0010 


0000 


0014 


0000 


0018 


0000 


001C 


0000 


0000 


0000 


0008 


0000 


000B 


0000 


oooc 


0000 


0010 


0000 


0014 


0000 


0016 


0000 


ooie 


0000 


ooic 


0000 


0020 


0000 


0022 


0000 


0024 


0000 


0025 


0000 


0026 


0000 


0028 


0000 


002C 


0000 


U030 


0000 


3860 


0000 


3890 


0000 


38C0 



1881 
1682 
1883 
1884 
1885 
1686 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
19C6 
1907 
1906 
1909 
1910 
19ll 
1912 
1913 
1914 
1915 



« EQUATES DEFINING OFFSETS WITHIN THE VOLUME DESCRIPTOR 



VD.VOL 

VO-ATRB 

VO.FOB 

VO'OSP 

VO'OSS 

BM.LBA 

IlS.LBA 

SOR.LBA 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 





4 

a 

12 
16 

20 

24 
28 



VO| UME NAME 

ATTRIBUTE 

DIRECTORY LOGICAL BLOCK ADDRESS 

0,S. POINTER 

O.S. SIZE 

BIT MAM LBA 

INVERTED LIST LBA 

SECONDARY DIRECTORY LBA 



* EQUATES DEFINING OFFSETS WITHIN THE DIRECTORY 



* 

FNAME 

EXT 

ACT 

FL«A 

LLBA 

Kf-TS 

lrcl 

DATE 

LUSE 

WCNT 

RC'«T 

ATTR 

BKSZ 

INBS 

CSEC 

PS«D 

OSlZE 

* 

DIRECT1 

OI«ECT2 

DIRECT3 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EOU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 

EOU 





8 

11 

12 

16 

20 

22 

24 

28 

32 

34 

36 

37 

38 

40 

44 

48 



FI L E NAME 

EXTENSION 

ACCOUNT NUMBER 

FIRST LOGICAL BLOCK AOORESS 

LAST LOGICAL BLOCK AOORESS 

PROTECT KEYS 

LOGICAL RECORD LENGTH 

DATE FILE ALLOCATED 

OATE LAST ASSIGNED 

WRITE COUNT 

«EAO count 

ATTRIBUTES 

BLOCK SIZE 

INDEX BLOCK SIZE 

CUR SEC OR NO. LOGICAL RECORDS 

PASSWORD 

DIRECTORY ENTRY SIZE « IN BYTES) 



INBUF+4 WHERE FIRST ENTRY GOES 

INBUP+4+0SIZE WHERE SECOND ENTRY GOrS 
INBUF+44.DSIZE+DSIZE WHERE THIRD ENTRY GOES 



COMMON HUD CROSS GENERATOR 06-25 2 R04«96A13 
SAVE AREAS 
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1900 






19D0 








OOOO 


01A8 


1A10 


18 




1A11 


1C 




1A12 


IF 




1A13 


20 




1A14 


08 




1A15 


09 




1A16 






1A16 


0000 




1618 


0000 




1A1A 


0000 




1A1C 


0000 




1A1E 


0000 




1A20 


0000 




1A22 


0000 




1A24 


0000 




1A26 


0000 




1428 


0000 




1A2A 


0000 




* A2C 


Cry>n 






*» Wta V 






0000 


1A20 


1A2E 


2123 






0000 


1A2F 


1A30 


0801 






0000 


1A31 


1A32 


0210 






0000 


1A33 


1A34 


03C8 






0000 


1A35 


1A36 


1020 






0000 


1A37 


1A38 


C1C2 






0000 


1A39 


1A3A 


1336 






0000 


1A3B 


1A3C 


3070 






0000 


1A3D 


1A3E 


0411 






0000 


1A3F 


1A40 


3022 






0000 


1A41 


1A42 


0000 




1A44 


0000 




1A46 


0000 




IA48 


0000 




1A4A 


0000 




1A4C 


0000 




1AI»E 


OOOO 




1A50 


0000 





1917 




ALIGN 4 


1916 


ERRSAVE 


OS 


64 


1919 


lobuf 


EQU 


ENOAO-STA 


1920 


stdirh 


DB 


27 


1921 


stdir 


OB 


28 


1922 


EmODIR 


OB 


31 


1923 


stsav 


DB 


32 


1921* 


DTRSTART 


DB 


a 


1925 


PROGSTRT 


DB 


9 


1926 




DB 


* 


1927 


• 






1928 


* 






1929 


NOSTOP 


OCX 





1930 


VERIFL^G 


OCX 





1931 


nextcyl 


OCX 





1932 


NEXTHEAO 


OCX 





1933 


NE*TSECT 


OCX 





1934 


FiiDCHDI 


OCX 


ooou 


1935 


FwQCNDO 


OCX 


0000 


1936 


FhOCMO 


OCX 


0000 


1937 


haxlrn 


OCX 


oooo 


1938 


nextlrn 


DCX 


0000 


1939 


THlSLRN 


OCX 


0000 


« *»»■ " 


Lf 1 OMOkb 






*/*l.l 


UVA 


<-v2u 


i9<n 


CLEAR 


EQU 


DISABLE+1 


1942 


HTREAD 


DCX 


2123 


1943 


FORWARD 


EQU 


MTREAD+i 


19im 


STOPS 


OCX 


0801 


19*5 


OREAD 


EQU 


STQPS+1 


19i»6 


OWRITE 


OCX 


0210 


1947 


SwRITE 


EQU 


DHRITE+1 


I9«a 


RCHECK 


DCX 


03C8 


19*9 


DRtSET 


EQU 


RCHECK+1 


1950 


SETCTt 


DCX 


1020 


1951 


sethead 


EOU 


SETCYL*1 


1952 


restor 


DCX 


C1C2 


1953 


SEEK 


EQU 


RESTOR+l 


1954 


3KSP 


DCX 


1338 


1955 


REWIND 


EQU 


BKSP+1 


1956 


sr£ad 


OCX 


3070 


1957 


ksmclflt 


EQU 


SREADn 


1956 


RESHEAD 


OCX 


0411 


1959 


BKSPRCRO 


EQU 


RESHEAD+1 


I960 


WFlLEMK 


DCX 


3022 


1961 


mtwrite 


EQU 


WFILEMK+1 


1962 


BITCOU^T 


DCX 





1963 


DlR.LBA 


OCX 


0,0 



START OF DIRECTORY <LRN> 

END OF OIRECTORY CLRNI 

START OF PROGRAM (LRN) 

DISK DIRECTORY STARTS «T CYLINDER j 

FIRST PROGRAM STARTS AT CYLINDER Y 



AUTO VERIFY FLAG 
VERIFY MODE FLAG 
0UTPU7 DISK PARAMETERS 



INPUT FLOPPY COHHANO 

OUTPUT FLOPPY COMMAND 

FLOPPY COMMAND BYTE MODEL 

MAXIMUM LRN 

OUTPUT FND LRN POINTER 

INPUT FMD LRN POINTER 

COrinAND DISABLE INTERRUPTS 

MAS TAPE CLEAR 

MAG TAPE REAO 

MAG TAPE FORWARD FILE MARK 

SELCH STOP 

DISK READ COMMAND 

WRITE TO THE SELCH 
REftUCHECK THE DISK 
RESET THE DISK 
SET DISK CYLINDER 
SET DISK HEAD 



MAG TAPE BACKSPACE FILE MARK 

MAG TAPE REWIND 

SELCH READ 

MS* CLEAR FAULT 

MSN RESET HEAD 

HAG TAPE BACK SPACE RECORD 



1964 OSOIR 



DCX 0,0,0 



1965 INFLAG OCX 

1966 OUTFLAG OCX 



O.S. OIRECTORY LBa 
CYLINDER .HEAD. SECTOR 



INPUT DEVICE CODE 
OUTPUT DEVICE CODE 



COMMON MHO CROSS GENERATOR 06-252R04M96A13 
SAVE AREAS 



1A32 


0000 


1A54 


0000 


1A56 


0000 


1A5S 


0000 


IA5A 


0000 


1A5C 


0000 


1A5E 


0000 


1460 


0000 


1A62 


0000 


1A64 


0000 


1A66 


0000 


1A69 


0000 


1A6A 


0000 


1A6C 


0000 


1A6E 


0000 


ia70 


0000 


1A72 


0000 


1A74 


0000 


1A76 


0000 


1A78 


0000 


1A7A 


0000 


1A7C 


0000 


1A7E 


0000 


1A80 


0000 


1A82 


0000 


1A84 


0000 


1A86 


0000 


1A88 


oooo 


1A8A 


0000 


1A8C 


0040 


1A8E 


0018 


1A90 


0040 


1A92 


0040 


1A9* 


0040 


1A96 


0040 


1A98 


0040 


1A9A 


0001 


1A9C 


0002 


1A9E 


0005 


1AA0 


0013 


1AA2 


OOOB 


1AA4 


oooo 


1AA6 


000F 


IAA8 


0337 


1AAA 


0198 


1AAC 


0337 


1AAE 


0337 


1 ADA 


n*m 


J, -!U W 




J.A82 


0337 


1AB4 


0337 



1967 


ORWFLAG 


OCX 





1968 


SELERR 


OCX 





1969 


RETRY 


DCX 





1970 


IOIRHEAO 


OCX 





1971 


ioirpnt 


DCX 





1972 


IOlRLRN 


OCX 





1973 


IOIRSEC 


OCX 





1974 


INCYL 


OCX 





1975 


IigHEAO 


DCX 





1976 


INSECT 


DCX 





1977 


OSFLAG 


OCX 





1978 


DlSKTYPE 


OCX 





1979 


OlSKTYPl 


OCX 





1980 


0ISKTYP2 


ocx 





1981 


R15SAVE 


OCX 





1982 


FlRSTHDl 


DCX 





1983 


FIRSTHDO 


OCX 





1984 


DlRDAT 


OCX 


0.0.0 


1985 


STARTLBA 


DCX 


0.0.0(0 


1986 


FINALL&A 


OCX 


o.o.o.o 


1987 


BLOCK 


OCX 





1988 


* 






1989 


SECTAB 


OC 


H«64» 


1990 




DC 


H'24' 


1991 




OC 


H»64« 


1992 




OC 


H«64« 


1993 




OC 


H'64« 


1994 




OC 


H»64» 


1995 




OC 


H'64' 


1996 


* 






1997 


HOTAB 


DC 


H«l» 


1998 




DC 


H»2* 


1999 




OC 


H»5' 


2000 




DC 


H«19» 


2001 




DC 


H'll' 


2002 




DC 


H'l3« 


2003 




DC 


H'15' 


2001 


* 






2005 


CYLTAB 


DC 


H*823« 


2006 




OC 


M«408« 


2007 




OC 


H'823« 


2008 




OC 


H»623« 


2009 




OC 


Hl«?3« 


2010 




OC 


H«823» 


2011 




DC 


H'823' 
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READ OR WRITE FLAG 

SELCH ERROR FLAG 

RETRY COUNT 

INPUT DISK DIRECTORY POINTERS/ 

DISK DIRECTORY POINTER 

INPUT FLOPPY DIRECTORY POINTER 

OISK DIRECTORY SECTOR 

INPUT DISK WORK PARAMETERS/ 



10. 80. OR 300 MB 
INPUT DISK TYPE 
OUTPUT OISK TYPE 

* R04 

* R0<* 
OIRECTORY UPOATE DATA 



STARTING LBA FOR THE OS'S 



FINAL LBA FOR THE OS'S 



SECTOR COUNTER FOR OS BUILD 

NUMBER OF SECTORS PER TRACK 

0...13.S MR REMOVABLE 

2... 10 MB OISK 

4. ..80 mb OISK 

6. ..300 MB DISK 

S...13.5 MB FIXED Ro4 

A. ..40.5 MB FIXEO Rn4 

C...67.S Mb FIXED R04 

NUMBER OF HEADS 



TOTAL NUMBER OF CYLINDERS 



COMMON Mho CROSS GENERATOR 06-2S2R04M96A13 
SAVE AREAS 



PASE 39 11:01:50 08/31/81 



1AB6 


ooto 


1AB8 


0030 


1A3A 


0140 


1ABC 


otco 


1ABE 


0040 


1AC0 


ooco 


1AC2 


0140 


1AC4 


001A 


1AC6 


OOOA 


1AC8 


0081 


1ACA 


01E9 


1ACC 


OOlA 


1ACE 


004E 


1AQQ 


0081 



1A02 061C 

1A04 060C 

1A06 071C 

IADS 0A9C 

IAOA 061C 

1A0C 069c 

1ADE 071C 



1AE0 0000 0002 0406 0008 

1AE8 OAOC 

IAEA 003B 

1AEC 0033 

1AEE 0035 

1AF0 0036 

1AF2 0000 

1AF4 0000 

1AF6 0000 



1AF8 

1AF8 OUUO 

1AFA 0000 



1AFC 0000 
1AFE 0000 

1800 "ouo 



2012 

2013 

2014 

2015 

2016 

2017 

201S 

2019 

2020 

2021 

2022 

2023 

2020 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 



* 

LBATAB DC 
OC 
DC 
OC 
DC 
DC 
DC 

* 

* 

BHAPSIZE DC 
OC 
DC 
OC 
DC 
DC 
DC 

* 



USEDBITS DC 
DC 
OC 
OC 
OC 
DC 
DC 

• 

* 

DTAB 



OB 



2047 DEVCODES DCx 



204a * 

2049 * 

2050 

2051 SIZEI 



H»64' 

H'48» 

H»320» 

H'l216' 

H«64» 

H«192» 

H«320» 



H«26» 
H»10< 
H'129* 

H»489» 
H»26» 
H»78« 
H'l29' 



H«l564« 
H«1548» 
H»182Q« 
H»2716» 
H»l564» 
H»1692» 
HH820* 



NUMBER OF 


SECTORS 


PER 


CTLINOER 


64 X 1 










24 X 2 










64 X 5 










64 X 19 










64 X 1 










64 X 3 




















BIT MAP SIZE = NUMBER 


OF 


SECTORS 


64 X 622 / 


20*8 








48 X 407 / 


2048 








320 X 822 


/ 2048 








1216 X 822 


/ 2048 








64 X 822 / 


2046 








192 x 822 


/ 2048 








320 X 822 


/ 2046 









BITS TO SET IN BIT MAP SO THAT 
EVERY SECTOR FROM CYLINDER 
THRU CYLINDER 7. PLUS AN ADDITIONAL 
12.000 CYLINDERS IS MARKED USED. 
VALUE IN TABLE IS NUMBER OF BYTES 
OF X«FF» TO PUT IN BIT NAP. 

(64 X 8 +12.0Q0J/8 
(48 X 8 +12,000>/8 
(320 X 8 ♦12.000)/8 
(1216 X 8 +12.0001/8 
164 X 8 +12, 0001/8 

(192 x a +i2.ooo)/e 

(320 x 8 *12,000)/8 



0.0i0.2,4,6t0«8.10.12 

3B. 33, 35.36. 0,0.0 



ALI6N 4 

OCX 0000,0000 



2052 • 

2053 * 

2054 SEONUH OCX 0000 

2055 PARTNO OCX 0000 

2056 REVLEV OCX 0000 



PROGRAM DEFINITION BLOCK 
HEX SEOUENCE NUMBER 
HEX PART NUMBER 
REV LEVEL 
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SAVE AREAS 


1R02 


uuuo 


1B0<» 


OAOO 


1B06 


0000 


1B08 


3FFF 


lBOfl 


oouo 


IBOC 




1B2A 




1B2A 


0000 


1B2C 


0000 


1R2E 


0000 


1B30 


uouo 


1832 


oouo 


1B3<* 


0000 


1R36 


0000 


1B38 


oouo 


1B3A 


OOUO 


1B3C 


OOUO 


1R3E 


oouo 


1B40 


uouo 


1B12 


0000 


lBtt 


0000 


1B46 


oouo 


1B<*8 


oouo 


IBM 


0000 


1B<*C 


0000 


1B<»E 


0000 


1B50 


oouo 


1B52 


0000 


lB5t 


OOuO 


1B56 


oouo 


1359 


OOuO 


1B5A 


0000 


1B5C 


0000 


1B5E 


0000 


1860 


uouo 


1B62 


0000 


1B64 


0000 


1B66 


0000 


1B68 


0000 


1B6A 


0000 


1B6C 


0000 


1B6E 


0000 


1B70 


uouo 


1B72 


0000 


XS74 


oouo 


1B76 


oooo 


1B78 


0000 


1B7A 


0000 


187C 


OOuO 


1B7E 


0000 


1R80 


oouo 


1B82 


0000 


1384 


oooo 



2057 


LOW 


OCX 


OOQU,UflO0 


2058 


HIGH 


OCX 


0000.3FFF 


2059 


LRNS 


DC* 


oooo 


2060 


fforh 


OS 


30 


2061 




00 


*1 


2062 




ocx 


oooo 


2062 




OCX 


oooo 


2062 




OCX 


oooo 


2062 




ocx 


oooo 


2062 




OCX 


oooo 


2062 




DCX 


oooo 


2062 




OCX 


oooo 


2062 




ocx 


oooo 


2062 




OCX 


oooo 


2062 




ocx 


oooo 


2062 




OCX 


oooo 


2062 




OCx 


oooo 


2062 




OCX 


oooo 


2062 




OCX 


oooo 


2062 




OCX 


oooo 


2062 




OCX 


oooo 


2062 




OCX 


oooo 


2062 




OCX 


oooo 


2062 




OCX 


OOOO 


2062 




OCX 


OOOO 


2062 




OCX 


oooo 


2062 




DCx 


oooo 


2062 




OCX 


oooo 


2062 




OCX 


oooo 


2062 




OCX 


oooo 


2062 




DCX 


oooo 


2062 




DCX 


oooo 


2062 




OCX 


oooo 


2C62 




DCX 


oooo 


2062 




DCX 


oooo 


2062 




ocx 


oooo 


2062 




OCX 


oooo 


2062 




ocx 


oooo 


2062 




DCX 


oooo 


2062 




DCX 


oooo 


2062 




ocx 


oooo 


2062 




DCX 


oooo 


2062 




DCX 


oooo 


2062 




OCX 


oooo 


2062 




ocx 


oooo 


2062 




OCX 


oooo 


2063 




OCX 


oooo 


2064 


RECORDS 


DCX 





2065 


RECORDS^ 


< OCX 





2066 


LEFTOVER 


: OCX 





2067 


R5SAVE 


OCX 






LOAD START AOORESS 

LOfiO END ADDRESS 

LRN TALlYi THIS PROGRAM 
PROGRAM NAME FIELD 



REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 
REST 



OF PDB = 
OF POB = 
OF POB = 
OF POB s 
OF PDB - 
OF PDB = 
OF PDB = 
OF POB = 
OF POB = 
OF POB = 
OF PDB = 
OF POB = 
OF PDB = 
OF PDB s 
OF POB = 
OF POB = 
OF POB = 
OF POB = 
OF POB = 
OF POB = 
OF PDB = 
OF POB = 
OF POB = 
OF POB = 
OF PDB = 
OF POB = 
OF POB = 
OF POB = 
OF POB = 
OF POB = 
OF POB = 
OF POB = 
OF PDB = 
OF PDB = 
OF POB = 
OF PDB - 
OF PDB = 
OF PDB = 
OF POB = 
OF PDB = 
OF POB = 



ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 
ZERO 



NUMBER OF 256 BYTE RECORDS 
Saml INFO FOR VfcNIFT PH»SE 
NUMBER OF BYTES IN LAST RECORD 
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SAVE AREAS 



1B86 


0000 


2068 


PR06SI2E 


OCX 





1B88 


0000 


2069 


POBSTART 


OCX 





1B8A 


0000 


2070 


UTILITY 


OCX 







0000 1S2A 


2071 


FM0FLA6 


EOU 


FFORH+30 




0000 lS2C 


2072 


PK6REV 


ECU 


FFORH+3? 
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NUMBER OF BYTES WRITTEN 
START LRN FOR POB 
PRINT UTILITY FLAG 
DISKETTE FLAG 
PACKAGE REVISION 
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MEDIA INITIALIZATION 



1B8C 


2501 




1B8E 


4000 


1A66 


1892 


4840 


1A4E 


1696 


2741 




1B98 


2139 




1B9A 


4820 


1664 


1B9E 


OE20 


1A20 


1BA2 


41KC 


2E8C 


IBA6 


OE20 


1A3B 


1BAA 


4820 


167C 


1BAE 


4830 


1A6C 


1B32 


4030 


1A68 


1BB6 


2400 




13B8 


4000 


IA58 


1BBC 


4000 


1A5E 


1RC0 


4000 


1A5A 


1BC* 


034o 


lAll 


1BC8 


4040 


1A5C 


1BCC 


0310 


1A15 


1POO 


4010 


1A1A 


1B04 


4000 


1A1C 


1BD8 


4000 


1A1E 


1BOC 


4830 


1A50 


1BE0 


2731 




18E2 


4330 


1CF2 


1BE6 


2T31 




1BE8 


4230 


1088 


1BEC 


2400 




1BEE 


4000 


1A66 


1BF2 


4830 


16A0 


1BF6 


9134 




18F6 


C630 


OOCO 


IBFC 


4030 


1A24 


1C00 


4030 


1A22 


ICO* 


41D0 


2B0E 


1C08 


C840 


0800 


1C0C 


4810 


1A24 


1C10 


CB40 


001A 


1C14 


2611 




1C16 


41C0 


2ABC 


1C1A 


9824 




1C1C 


9E21 




1C1E 


9D23 




1C20 


2081 




1C22 


0925 


nooo 


1C26 


2652 




1C?8 


055fc 




1C2A 


2084 




1C2C 


9021 




1C2E 


C310 


0050 



2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2193 

2124 

2125 

2126 



RUN.CHO t_CS 
STH 

RllN.0000 LH 
SIS 
BNZ 
l_H 
OC 
BAL 
OC 

RUN. 0001 LH 
LH 
STH 
LIS 
STH 
STH 
STH 
LB 
STH 
LB 
STH 
STH 
STH 
LH 
SIS 
B2 
SIS 
3NZ 



R0,1 

RO.OSFLaS 

R4.INFLAG 

R4,l 

RUN. 0001 

R2tINDEV+*VALUl 

R2, CLEAR 

R15.N0M0TI0N 

R2. REWIND 

R2.0UTDEV+JVALUI 

R3.0ISKTYP2 

R3.0ISKTTPE 

RO.O 

RO.IOIRHEAD 

RO.IDIRSEC 

RO.IDIRPNT 

R4,ST0IR 

R4.IDIRLRN 

RI.PROgSTRT 

Rl.NEXTCYL 

RO.NEXTHEAO 

RO.NEXTSECT 

R3.0UTFLA6 

R3.1 

INITMAG 

R3,l 

INITDISK 



* INITIALIZE THE FLOPPY 
* 

LIS 

STH 

LH 

SLLS 

OH I 

STH 

STH 

BAL 

LHI 
FINQHAX LH 

SHI 

AIS 

BAL 

WHR 

OCR 

SSR 

BTBS 
FTNDHAX2 RH 

AIS 

CLAR 

BLS 

SSR 

THI 



RO.O 

R0.OSFLA6 

R3.0DRIVE+SVALU1 

R3.* 

R3.X«C0« 

R3.FM0CHD 

R3.FH0CND0 

R13.FMDI0LE 

R4.2048 

Rl.FMOCMO 

R4.26 

Rl.l 

R12.SULH56 

R2.R* 

R2.R1 

R2.R3 

8.1 

R2.0CR5) 

R5.2 

R5.R6 

FINOMAX? 

R2.R1 

R1.X'50» 



FORCE OS FLsG SET 

HAG TAPE INPUT? 
SKIP IF NO 



REWIND THE MAG TAPE 
OUTPUT DEVICE NUMBER 

DISKTYPE SET TO OUTPUT DISK 
"REWIND" INPUT DISK 
POINTERS ALL SET TO ZERO 

OIRECTORY BUFFER INDEX TO ZERO 
"REWINO" INPUT DISKETTE 
PRESET INPUT DIRECTORY LRN 

INITIAL POINTERS FOR OUTPUT DISK 



MAG TAPE OUTPUT? ICOOE 1» 
BRANCH IF YES 

FLOPPY OUTPUT? I CODE 2» 
NO. MUST BE DISK 



KILL OS FLAG 

PICK UP DRIVE NUMBER 

POSITION DRIVE SELECT BITS 

OR IN DISARM BITS 

SAVE COMMAND MODEL 

IOLE CHECK 

MAX LRN VALUE PLUS 26 

DECREMENT ONE TRACK 
FORM READ COWIANO 
PRESET ADDRESS REGISTERS 
WRITE LRN TO CONTROLLER 
ISSUE READ COMMAND 

WAIT FOR NON-BUSY 
READ 2 BYTES AT A TIME 



LOOP 

DEFECTIVE SECTOR STATUS? 
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MEDIA INITIALIZATION 



1C32 


2137 




1C34 


4100 


2B12 


1C38 


4040 


1A26 


1C3C 


4300 


1C66 


1C40 


41D0 


2B12 


ic4» 


C5<+0 


0T9E 


1C4S 


4560 


1C0C 


1C4C 


C850 


3314 


1C50 


41F0 


12BC 


1C54 


C8F0 


OAAA 


IC58 


0000 


405C 


1C5C 


41F0 


0FD2 


1C6Q 


O100 


*05C 


1C64 


030F 




1C66 


H830 


1A18 


XC6A 


4230 


1CC6 


1C6E 


41G0 


3B0E 


1C72 


titc 


2ABC 


IC76 


41C0 


2AD0 


1C7A 


0340 


1A11 


1C7E 


41E0 


2000 


1C62 


2641 




1C84 


41C0 


2ABC 


1C88 


41E0 


2000 


1C8C 


2641 




1C3E 


41C0 


2ABC 


1C92 


41E0 


2000 


1C96 


2541 




1C98 


4040 


380A 


1C9C 


D340 


1A12 


1CA0 


41CC 


2ABC 


1CA4 


41E0 


2D00 


1CA8 


2445 




1C6A 


C850 


3013 


1CAE 


C660 


313F 


1CB2 


41E0 


2000 


1CB6 


D340 


1A13 


1CBA 


4040 


1A2B 


1CBE 


4040 


1B88 


1CC2 


4300 


1F7C 


1CC6 


2445 




1CC8 


case 


S85C 


1CCC 


C865 


0127 


1COO 


41E0 


2CA0 



2127 




BNZS 


FINDHAX* 


2128 




BAL 


R13»ST0P 


2129 




STH 


R4.NAXLRN 


2130 




B 


INIT.002 


2131 


• 






2132 


FXN0HAX3 


BAl 


R 13 .STOP 


2133 




CLHI 


R4.1950 


2134 




BNL 


FIMOHAX 


2135 


• 






2136 


MDERR0Q1 


LOAI 


R5.WE0MSG 


2137 


* 






2138 


C0NHSG1 


BAL 


RIS.SETkB 


2139 




LDAI 


R13.0PTTN 


2140 


* 






2141 


C0NBS6 


STM 


RO. REGISTER 


2142 




BAL 


R15»PRINT 


2143 




LH 


RO, REGISTER 


2144 




BR 


R15 


2145 


* 






2146 


* 






2147 


INIT.002 


LH 


R3.VER1FL&*; 


2148 




BNZ 


BOOTCHCK 


2149 




BAL 


Ri3«Fnn ? - ; 


2150 




BAL 


Ri2»SC, 


2151 




BAL 


R12»Z«.'V:!UUFF 


2152 




LB 


R4«ST0f« 


2153 




BAL 


R14>WRtRN 


2154 




AIS 


R4,l 


2155 




BAL 


R12.SULH36 


2156 




BAL 


R14.WRLRN 


2157 




AIS 


R4,l 


2158 




BAL 


R12»SULH5* 


2159 




BAL 


R14.WRLRN 


2160 




LCS 


R4.1 


2161 




STH 


R4.INBUF+126 


2162 




LB 


R4iEN00IR 


2163 




BAL 


R12.SULH56 


2164 




BAL 


R14«WRLRN 


2165 


* 






2166 




LIS 


R4.5 


2167 




LOfll 


R5.B00TST 


2168 




LOAI 


R6tENDAD 


2169 




BAL 


R14.HRLRN 


2170 


FlOPPSET 


LB 


R4.STSAV 


2171 




STH 


R4tNEXTLRN 


2172 




STH 


R4.P0BSTART 


2173 




B 


FINONEXT 


2174 


* 






2175 


* 






2176 


bootchck 


LIS 


R4.5 


2177 




LOAI 


R5.INBUF 


2178 




LHI 


R6.ENDA0-B00TSTCR5) 


2179 




BAL 


R14.RDLRN 



SACK DOWN IF YES 
ELSE FOUND MAX LRN 
SAVE VALUE 
AND LEAVE 



AT MINIMUM? 
TRY NEXT TRACK 

"DEFECTIVE MEDIA" 

SELECT CONSOLE FOR OUTPUT 
SET RETURN TO COMMAND MODE 

SAVE REGISTERS 

P*f«jr stPSSAGE 

- REGISTERS 



BRANCH IF VERIFY COMMAND 

IDLE CHECK 

LinlTS INBUf»INBUf*1*7 

SET INBUF TO ZERO 

DIRECTORY STARTS AT LRN 28 

WRITE FIRST RECORD 

NEXT LRN 

WRITE SECOND RECORD 
NEXT LRN 

WRITE THIRD RECORD 

MARK OIRECTORY END 
LAST LRN 

WRITE LAST DIRECTORY RECORD 

POINT TO LRN 5 

BOOT START ADDRESS 

BOOT END ADDRESS 

WRITE FLOPPY BOOT 

START LRN FOR FIRST PROGRAM 

WORKING LRN POINTER 

STARTING LRN FOR FIRST POB 



LRN 9 



REAO THE FLOPPY BOOTLOAOER 
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MEOIA INITIALIZATION 



ICD* 


C850 


3018 


ICD8 


C860 


0128 


1C0C 


*1E0 


2EA* 


1CE0 


*ifo 


1CE8 


ICE* 


*3Q0 


1CB6 


1CE8 


033F 




1CEA 


C850 


3SA1 


1CEE 


*3Q0 


1C58 



2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 



LOAI 

LHI 

BAL 

BAl_ 
B 
VERR.001 BER 
LDAI 

e 



R5.B00TST 

R6«ENQA0+1-B0QTST 

R14«C0MPARE 

R15.VERR.001 

FLOPPSET 

R15 

R5.VERRMSG1 

CONMSG 



PATTERN START ADDRESS 

NUMBER OF BYTES 

COMPARE PATTERN TO INBUF 

TEST IF ERROR 

CONTINUE 

RETURN IF GOOD COMPARE 

"BOOT LOADER VERIFY ERROR" 

RETURN FROM CONMSG ON R15 



1CF2 


2*00 




1CF* 


*000 


1A66 


1CF8 


*8*0 


1688 


ICFC 


DE*0 


1A30 


1O00 


DE20 


1A20 


100* 


*1F0 


2EBC 


iooa 


0E2C 


IA39 


100C 


*1F0 


?EBC 


1010 


*830 


1A18 


101* 


*230 


1D*C 


1018 


OE20 


1A*0 


101C 


*1F0 


2EBC 


1020 


OE20 


1A3A 


1024 


C850 


31*0 


1028 


C865 


00*F 


102C 


*1D0 


2B62 


1030 


C850 


319* 


103* 


C860 


32F7 


1038 


*100 


2B62 


103C 


DE20 


1A*0 


10*0 


*1F0 


2E8C 


ID** 


OE20 


1A*0 


10*8 


*300 


IF7C 


10*C 


C850 


385C 


1050 


C860 


38AB 


1D5* 


*1D0 


286A 


1D58 


C850 


31*0 


1D5C 


C660 


0050 


1060 


*1E0 


2EA* 


106* 


*1F0 


1CE8 


1068 


C850 


365C 


106C 


C865 


016* 


1070 


*1D0 


2B6A 


107* 


C850 


319* 


1D78 


C860 


016* 


107C 


*lEn 


2EA4 


1D80 


*lFo 


ICES 


108* 


*300 


1F7C 



2189 

2190 

2191 

2192 

2193 

219* 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

220* 

2205 

2206 

2207 

2208 

2209 

2210 

2211 

2212 

2213 

221* 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

222* 

2225 

2226 

2227 

2228 

2229 



* INITIALIZE THE BAG TAPE 



INITMAG 



LIS 

STH 

LH 

OC 

OC 

BAL 

OC 

BAL 

LH 

BNZ 

OC 

BAL 

OC 

LDAI 

LHI 

BAL 

LDAI 

LOAI 

BAL 

OC 

BAL 

OC 

B 



VMAGBOOT LOAI 
LHI 
BAL 
LDAI 
LHI 
BAL 
BAL 
LDAI 
LHI 
BAL 
LOAI 
LHI 
BAL 
BAL 
B 



*IAGFIN 



RO.O 

RO.OSFLAG 

R*,SELCH2+SVALU1 

R*, STOPS 

R2, CLEAR 

R15.N0M0TI0N 

R2.REWIN0 

R15«N0M0TI0N 

R3.VERIFLAG 

VMAGBOOT 

R2,WFlLrHK 

R15.N0M0TI0N 

R2iBKSP 

R5i«TB00T 

R6tX'*FMR5» 

R13»WRITEHAG 

R5,NTL060S 

Rfc.MTLOAOE 

R13iWRITEM6G 

R2tWFlLFHK 

R15»N0HOTI0N 

R2.WFILFHK 

FINDNEXT 



R5, INBUF 

Rfe.INBUF+X'*F 

R13»REA0MAG 

R5t«TB00T 

R6tX*50> 

R1*«C0MPARE 

R15.VERR.001 

R5.INBUF 

R6«HTL0ADE*1 

R13»READHAG 

R5.HTL0A0S 

R6,HTL0A0E+1- 

R1*«C0MPARE 

R15»VERR.001 

FINDNEXT 



KILL OS FLAG 

PICK UP SELCH ADDRESS 



REWIND THE OUTPUT TAPE 

WAIT FOR NOHOTION 

TEST IF DOING A VERIFY 

BRANCH IF YES 

WRITE A FILE HARK AT START OF 

TAPE, THEN BACK SPACE OVER IT 

TO GET AWAY FROM SOT 

AUTOLOAD START 

AUTOLOAD SECTION END 

WRITE THE AUTOLOAD PIECE 

BOOT LOADER START ADDRESS 

BOOT LOADER ENO ADDRESS 

WRITE THE BOOT LOADER 

WRITE A FILE HARK 

WRITE ANOTHER FILE MARK 
GO START LIBRARY 



START ADDRESS 
END ADDRESS 

READ THE AUTOLOAD PIECE 
PATTERN START ADDRESS 
NUMBER OF BYTES 
COMPARE PATTERN TO IN8UF 
"BOOT LOADER VERIFY ERROR" 
START ADDRESS 
MTL0A0S<R5l ENO ADDRESS 



PATTERN START ADDRESS 
MTLOAOS NUMBER OF BYTES 

COMPARE PATTERN TO INBUF 
"BOOT LOAOER VERIFY ERROR" 
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HEDIft INITIALIZATION 



1088 


4830 167E 


1D8C 


48*0 1688 


1D90 


OE40 1A30 


1094 


0E3Q 1A35 


1098 


9021 


1D9A 


C310 0010 


* 109E 


2033 


1DA0 


4870 1A68 


IDA* 


2774 


10A6 


2183 


10A8 


0E20 1A30 


10AC 


487o 1A66 


10BO 


4330 lEC4 


10B4 


2480 


1DB6 


4890 1A72 


1D3A 


24A0 


ioec 


40A0 1B8A 


10CO 


41D0 2820 


I DC 4 


DE20 1A38 


iocs 


487o 1A68 


1DCC 


4807 1AD2 


10D0 


2480 


10D2 


2490 


1004 


24A1 


1006 


2410 


10D8 


25B1 


1D0A 


2701 


100C 


4320 tEOO 


10E0 


02B1 385C 


1DE4 


2611 


10E6 


C510 OlOO 


10EA 


2088 


10EC 


4000 1A42 


10FO 


41F0 2F08 


10F4 


41F0 1EA6 


10F8 


4800 1A42 


1QFC 


4300 1DD6 


1E00 


24B0 


1E02 


02B1 385C 


1E06 


2611 


leoa 


C510 OlOO 


1E0C 


2086 


1E0E 


41F0 2F08 


1F12 


41F0 1EA6 


1E16 


41C0 2AC6 


1E1A 


41C0 2AO0 


1E1E 


4807 1AD2 



2231 


* INITIALIZE 


THE DISK * 


2232 


* 






2233 


INITDISK 


LH 


R3.0UTOEV+SVALU2 


2234 




LH 


R4.SELCH2+SVALU1 


2235 




OC 


R4, STOPS 


2236 




OC 


R3.0RESET 


2237 


SENSTA1 


SSR 


R2.R1 


2238 




TMI 


Rl,X»10» 


2235 




»U7 


SENSTA1 


2240 


* 






2241 




LH 


R7.0ISKTYPE 


2242 




SIS 


R7.4 


2243 




BLS 


NOTHSH 


2244 




OC 


R2,«SHCLFLT 


2245 


NOTHSH 


LH 


R7.0SFLI8 


2246 




BZ 


INITOSK1 


2247 


INITOS 


LIS 


R8.0 


2248 




LH 


R9.FIRSTH00 


2249 




LIS 


RIOtO 


2250 




STH 


RIO. UTILITY 


2251 




BAL 


R13.FILESET 


2252 




OC 


R2.RESTOR 


2253 


• 






2254 


* 






2255 




LH 


R7.DISKTYPE 


2256 




LH 


R0.USEDP.ITSIR7) 


2257 




LIS 


R8.0 


2258 




LIS 


R9.0 


2259 




LIS 


RlOtl 


2260 


BmAPOOOI 


LIS 


R1»0 


2261 




LCS 


Rllil 


2262 


8MAP0002 


SIS 


R0.1 


2263 




BNP 


8HAP000* 


2264 




STB 


Rll.INBUF(Rl) 


2265 




AIS 


Rl.l 


2266 




CLHI 


R1.256 


2267 




BLS 


BHAPO002 


2268 




STH 


RO.BITCOUNT 


2269 




BAL 


R15»DISKSET 


2270 




BA L 


R15«DISkERR2 


2271 




LH 


RO.BITCOUNT 


2272 




B 


BMAP0001 


2273 


* 






2274 


BHAP0003 LIS 


R11.0 


2275 




STB 


Rll.lNBUFIRll 


2276 




AIS 


Rl.X 


2277 




CLHI 


R1.256 


2278 




BLS 


BHAP0003 


2279 




BAL 


R1S.DISKSET 


2280 




BAL 


R15.0ISKERR2 


2281 




BAL 


R12.SULH56.2 


2282 




BAL 


R12.ZER0BUFF 


2283 




LH 


R0.USEOnITS(R7> 



GET CONTROLLER ADDRESS 
SET SELCH ADDRESS 

RESET THE CONTROLLER 
DRIVE STATUS 

MA!T FOR ADDRESS INTERLOCK 



CLEAR FAULT STATUS BITS 

TEST IF D0IN6 OS FRONT-ENO 

SKIP IF NO 

CYLINDER 

FIRST OUTPUT HEAD 

SECTOR 

CLEAR UTILITY FLAG 



SET UP THE BIT HAP FIRST 



number of »ff« bytes 
bit hap goes at lba 1 
(cylinder o.head 0. sector 1» 

Index 

FOXES 

DECREMENT BYTE COUNT 
DONE WITH FOXES 
SET 8 BITS 
INCREMENT INOEX 
ONE SECTOR? 
LOOP IF NO 
YES' SAVE COUNT 
WRITE THE SECTOR 
NON VERIFY ERROR 

LOOP 

FILL OUT REST OF SEpToR WITH ZERO 



WRITE THIS SECTOR 
NON VERIFY ERROR 
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1E22 


c«oo 


OOFF 


1E26 


9008 




1E28 


4507 


tACU 


1E2C 


4000 


1A42 


1E30 


2389 




1E32 


U1F0 


2F08 


1E36 


41F0 


1EA6 


1EJ4 


4800 


1A42 


1E3E 


2601 




1E40 


220C 




1E42 


4060 


1A48 


1E46 


4090 


1A4A 


1E4A 


40Ao 


1A4C 


1E4E 


41CQ 


2AC6 


1E52 


tico 


3*00 


1E56 


4870 


16C4 


1E5A 


4070 


385C 


1E5E 


4870 


16C6 


1E62 


4070 


385E 


1E66 


2471 




1E&8 


4070 


3872 


1E6C 


41F0 


2FA8 


1E70 


4000 


3864 


1E74 


4010 


3866 


1E78 


41F0 


2F8A 


1E7C 


4080 


lAlA 


1E80 


4090 


1A1C 


1E84 


40AO 


1A1E 


1E68 


2480 




1E8A 


4890 


1A72 


1E8E 


24A0 




1E9Q 


41F0 


2F08 


1E94 


41F0 


1E9C 


1E98 


4300 


1F7C 


1E9C 


033F 




1E9E 


C850 


3442 


1EA2 


4300 


1C58 



1EA6 



033F 



1EA8 4850 1B8A 



1EAC 


4230 


2F8A 


1EB0 


40F0 


1B8A 


1EB4 


C850 


342B 


1EB8 


41F0 


1C58 


1EBC 


4SFQ 


IBS* 


1EC0 


4300 


2F8A 



1EC4 O380 1A14 



2284 




AH I 


R0.255 


2285 




SRLS 


R0,6 


2286 


BMAP0004 


CLH 


R0.BHAPSI2E(R7) 


2287 




STH 


RO.BITCOUNT 


2286 




BNL 


8HAPD0NE 


2289 




BAL 


R15«OISKSET 


2290 




BAL 


R15.0ISKERR2 


2291 




LH 


RO.BITCOUNT 


2292 




AIS 


ROtl 


2293 




B 


BHAPOOOu 


2294 


* 






2295 


BnAPOONE 


STH 


R8.0SDIR 


2296 




STH 


R9.0SDIR+2 


2297 




STH 


RlO.OSOlR+4 


2298 




BAL 


R12»SULH56.2 


2299 




BAL 


R12«ZEROBUFF 


2300 




LH 


R7.DSCRPT+SVALU1 


2301 




STH 


R7.INBUF+VD.V0L 


2302 




LH 


R7.0SCRPT+SVALU2 


2303 




STH 


R7.INBUF+VD.V0L+2 


2304 




LIS 


R7,l 


2305 




STH 


R7.INBUF+BH.LBA+2 


2306 




BAL 


R15.F0RNL8A 


2307 




STH 


RO.INBUF+VD.FOB 


2308 




STH 


Rl.INBUF+VD.FDB+2 


2309 




BAL 


R15.NEXT0ISK 


2310 




STH 


R8.NEXTCYL 


2311 




STH 


R9.NEXTHEA0 


2312 




STH 


RlQtNEXTSECT 


2313 




LIS 


R8.0 


2314 




LH 


R9.FIRSTH00 


2315 




LIS 


RlOiO 


2316 




BAL 


R15.DISKSET 


2317 




BAL 


R15.DISKERR1 


2318 




B 


FINDNEXT 


2319 


* 






2320 


DISKERR1 


BER 


R15 


2321 




LOAI 


R5.0SERRN3 


2322 




B 


CONHSG 


2323 


* 






2324 


DISKERR2 


BER 


R15 


2325 


• 






2326 


» 






2327 




LH 


R5, UTILITY 


2328 


* 






2329 




BNZ 


NEXTOISK 


2330 




STH 


R15.UTILITY 


2331 




LOAI 


R5,OSER»H2 


2332 




BAL 


R15»CONHSG 


2?;; 




LH 


BJB«11TJ1_TTV 


2334 




B 


NEXTOISK 


2335 


* 






2336 


INIT0SK1 


LB 


R8.0IRSTART 
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ROUND IT UP 

NUMBER OF SECTORS WRITTEN 

END OF HAP? 

OONE WITH BITMAP 
WRITE THIS SECTOR 



SAVE CYLlNOERt HEAOi AND SECTOR 
DIRECTORY FOLLOWS BIT MAP 



VOLUME = •MHO • 



BIT HAP LOGICAL BLOCK ADDRESS 

CHANGE B, 9, 10 TO LBA 
STORE DIRECTORY LBA 

NEXT LBA VALUE 
WHERE FIRST OS GOES 



CYLINDER 

FIRST OUTPUT HEAO 

SECTOR ZERO 

WRITE THE VOLUME DESCRIPTOR 

"VOLUME DESCRIPTOR VERIFY ERROR" 

GO DO FIRST PROGRAM 

RETURN IF GOOD COMPARE 

"VOLUME DESCRIPTOR VERIFY ERROR" 

RETURN FROM CONMSS ON R15 

RETURN IF 6000 COMPARE 

IF BAD. CrLlNOER-HfAD-SECTOR 

VALUES HAVE NOT BEEN INCREMENTED 

TEST UTILITY FLAG. IF NOT ZERO. 

ERROR HAS ALREADY BEEN REPORTEO. 

EXIT FROM NEXTOISK ON Rl5 

SET UTILITY FLAG 

"BIT HAP VERIFY ERROR" 

OUTPUT THE MESSAGE ONE TIME 

RESTORE R15 

RETURN FROH NEXTOISK ON R15 

CYLINDER 6 
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ltC8 


4890 1A72 


2337 


LH 


R9tFlRSTHDO 


1ECC 


24Ao 


2338 


LIS 


RlOtO 


1EXE 


41D0 2B20 


2339 


BAL 


R13«FILPSET 


1ED2 


OE20 1A38 


2340 


OC 


R2.REST0R 


1ED6 


4100 284C 


2341 


BAL 


R13«0ISKWAIT 


1EOA 


mCO 2AC6 


23*2 


BAL 


R12tSULH56.2 


1EOE 


41C0 2AD0 


2343 


BAL 


R12«ZERQBUFF 


1EE2 


C870 FEEE 


2344 


LHI 


R7.X'EEEE» 


jrtc 


48?C 335C 










CVtO 


STH 


R7.INBUF 


1EEA 


4070 385E 


2346 


STH 


K7.INBUF+2 


IEEE 


4070 3860 


23»7 


STH 


R7.INBUF+4 


1EF2 


4070 3862 


2348 


STH 


R7.INBUF+6 


1EF6 


489o 1A72 


23*9 


INITCYL LH 


R9,FIRSTH00 


1EFA 


4100 2820 


2350 


BAL 


R13«FILESET 


1EFE 


OE20 1A39 


2351 


OC 


R2»SEEK 


1F02 


4100 2B4C 


2352 


BAL 


R13.DISKWAIT 


1F06 


24Ao 


2353 


INITTRK LIS 


R10»0 


1F08 


41E0 2C70 


2354 


INITSEC BAL 


R14tREA0CHCK 


1F0C 


C310 0020 


2355 


THI 


RlfX'20t 


1F10 


4230 1C4C 


2356 


BNZ 


MDERROOl 


1F14 


41C0 2AC6 


2357 


BAL 


R12»SULw56.2 


1F18 


4610 1A18 


2358 


LH 


RltVERlFLAS 


1F1C 


433c 1F44 


2359 


BZ 


INlTSECl 


1F20 


41E0 2006 


2360 


BAL 


R14«REA0SECT 


1F24 


4800 385C 


2361 


LH 


ro.inbuf 


1F28 


4A00 385E 


2362 


AH 


R0,INBUF+2 


1F2C 


4A00 3860 


2363 


AH 


R0.INBUF+4 


1F30 


4A00 3662 


2364 


AH 


RO.INBUF+6 


1F34 


C500 BB88 


2365 


CLHI 


RO.X'BBBS' 


IF38 


4330 tF7c 


2366 


BE 


FINONEXT 


1F3C 


C850 330R 


2367 


otrecter loai 


R5.ERRMS61 


1F40 


4300 1C50 


2368 


B 


CONHSGl 


1F44 


41E0 20DA 


2369 


1NITSEC1 BAL 


R14.WRITSECT 


1F48 


2400 


2370 


LIS 


ROtO 


1F4A 


4000 385C 


2371 


STH 


R0«INBUF 


1F4E 


4000 365E 


2372 


STH 


RO.INBUF+2 


1F52 


4000 3860 


2373 


STH 


RO.INBUF+4 


1F56 


4000 3862 


2374 


STH 


RO.INBUF+6 


1F5A 


4870 1A68 


2375 


LH 


R7.DISKTYPE 


1F5E 


26A1 


2376 


AIS 


RIOil 


1F60 


45A7 1A8C 


2377 


CLH 


R10<SECTAB(R7) 


iF64 


4280 1F08 


2378 


BL 


INITSEC 


1F68 


2691 


2379 


AIS 


R9,l 


1F6A 


4597 1A9A 


2380 


CLH 


R9tHDTAB«R7) 


1F6E 


4280 1F06 


2381 


BL 


INITTRK 


1F72 


2661 


2382 


AIS 


R8,l 


1F74 


D480 1A15 


2383 


CLB 


R8.PR0GSTRT 


1F76 


4320 1EF6 


2384 


BNP 


INITCYL 



FIRST OUTPUT HEAD 
SECTOR 

DRIVE RESTORE 

CONTROLLER IDLE 

LIMITS INBUF.INBUF+255 

CLEAR INBUF 

FILL FIRST 8 BYTES WITH ♦£♦ 



FIRST OUTPUT HEAD 



SECTOR 

READ CHECK THE SECTOR 

•DEFECTIVE SECTOR* 

TEST VERIFY FLAG 
SKIP IF RESET 

EEEE 

+EEEE=DDDC 
+EEEE=CCCA 
+EEEE=BBB8 
CHECK IT 

go on if watch 

"invalid directory on output drive" 

geturn to command modr 

write a sector 

CLEAR BUFFER FOR NEXT SECTOR 



INCREMENT TO NEXT SECTOR 

READ CHECK NEXT SECTOR 
INCREMENT TO NEXT HEAD 



INCREMENT TO NEXT CYLtNOER 

cylinder 9? 

zero out cylinders 8 * 9 
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FIND A PROGRAM ON THE INPUT 



1F7C 


4830 


1A4E 


1F80 


4820 


1664 


1F84 


C530 


0001 


1F88 


2337 




1F8A 


C530 


0002 


1F8E 


4330 


203E 


IF92 


4300 


1FB8 


1F96 


4840 


1670 


1F9A 


2333 




1F9C 


OE40 


1A30 


1FA0 


41F0 


2EBC 


1FA4 


0E20 


1A2F 


IFA8 


C850 


375C 


1FAC 


C865 


0032 


1F90 


41D0 


2B6A 


1FB4 


4300 


.J0A4 


1FB8 


4830 


1666 


1FBC 


4840 


1670 


1FC0 


4850 


1A6A 


1FC4 


4050 


1A68 


IPCS 


4660 


1A5A 


1FCC 


4230 


lFFO 


1F00 


C850 


365C 


1FD4 


C865 


OPFF 


1FD8 


0380 


1A14 


1FOC 


4690 


1A58 


1FE0 


48A0 


1A5E 


1FE4 


41EC 


2D06 


1FE8 


06EA 




1FEA 


06E9 




1FEC 


2132 




1FEE 


2668 




1FF0 


2668 




1FF2 


4080 


1A5A 


1FF6 


C5B0 


0100 


1FFA 


2187 




1FFC 


24A0 




1FFE 


40AQ 


1A5A 


2002 


24A1 




2004 


61A0 


1A5E 


2008 


27B8 




200A 


48EB 


365C 


200E 


4330 


2A42 


2012 


4888 


3660 


2016 


039b 


3663 


201A 


03AB 


3662 


201E 


C850 


375C 


2022 


C865 


OOFF 


2026 


4ito 


2006 


202A 


41F0 


^F8A 


202E 


4080 


1A60 



2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
24U 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
24sb 
2437 
2438 



FlNDNEXT LH 
LH 



MA6FF 



HA6FF1 



DISK 



CLHI 

BE 

CLHI 

BE 
B 

LH 

B2S 

OC 

BAL 

OC 

LOAI 

LHI 

BAL 

8 



LH 

LH 

LH 

STH 

LH 

BNZ 

LHI 

LHI 

LB 

LH 

LH 

BAL 

LOAR 

OAR 

BNZS 

AIS 

INCRIOP AIS 
STH 
CLHI 
BLS 
LIS 
STH 
LIS 
AHM 

DECRIPNT SIS 
LH 
BZ 
LH 
LB 
LB 
LOAI 
LHI 
BAL 
BAL 
STH 



R3,INFLbG 

R2.IN0EV+SVALU1 

R3.1 

MAGFF 

H3t2 

FLOPPY 

DISK 

R4,SELCH1+$VALU1 

HAGFFl 

Ri*, STOPS 

Rl5»NOMoTION 

R2, FORWARD 

RSiPDB 

R6,50tR5) 

R13tREADNAG 

TRYTHIS 

R3.INDEV+*VALU2 

R4,SELCH1+$VALU1 

R5,DISKTTP1 

R5.DISKTYPE 

Rll'lDIRPNT 

INCRIOP 

R5.I0IRRLK 

R6,255(R5) 

R81OIRSTART 

R9,I0IRhEAD 

RIOtlOlRSEC 

R14.READSECT 

R14tR10 

Rl4»R9 

IMCRIDP 

R11.8 

RlltS 

RlltlDIRPNT 

Rll»256 

OECRIPNT 

R10»0 

R10.IDIRPNT 

R10.1 

R10.IDIRSEC 

Rll«8 

R14»IDIRBLK«R11> 

EN00V0L1 

R6,IDIRB|_K+4(R11) 

R9iI0IRRLK+7<RU» 

R1Q»IDIR3LK*6<RU) 

R5.PDB 

R6,2S5(R5) 

Ri4 »nE»risECT 

R15«NEXTDISK 

R8.INCYL 



LOOK AT INPUT DEVICE CODE 
GET INPUT OEVICE NUMBER 
HAG T*PE ? 

FLOPPY OEVICE? 

DISK DEVICE 

GET SELCH ADDRESS 
SKIP IF NO SELCH 
SELCH STOP 
CHECK FOR NOHOTION 
FORUaRO FILE MARK 

READ THE FIRST P08 



CONTROLLER ADDRESS 
SELCH ADDRESS 

SELECT INPUT DRIVE 
DIRECTORY POINTER 

STARTING ADDRESS 

ENDING ADDRESS 

•CYLINDER' 

•HEAD' 

DIRECTORY SECTOR 

GET 256 BYTES OF DIRECTORY 

TEST IF HEAD 0, SECTOR ZERO 
NO, NOT FIRST DIRECTORY BLOCK 
SKIP OVER E'S IN FIRST BLOCK 
INCREMENT INPUT DIRECTORY POINTER 
FOR NEXT TIME 



RESET IF END OF BLOCK 

POINT TO NEXT SECTOR 

DECREMENT POINTER 

FETCH POB PARAMETERS 

ZERO MEANS END OF VOLUME 

CYLINDER 

HEAD 

SECTOR 

PD8 BUFFER LIMITS 

READ THE PDB 

BUMP POINTERS 

SAVE INPUT OISK POSITION 



COMMON F1MO CROSS GENERATOR 06-252R04M96A13 
FIND A PROGRAM ON THE INPUT 
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2032 


4090 


1A62 


2036 


4QA0 


1A64 


203A 


4300 


20A4 


203E 


4830 


1694 


20*2 


9134 




2044 


C630 


OOCO 


2046 


4030 


1A20 


204c 


4030 


1A24 


2050 


48B0 


1A5A 


2054 


213c 




2056 


4840 


1A5C 


?05A 


C850 


365C 


205E 


C865 


007F 


2062 


41E0 


2CA0 


2066 


2441 




2068 


6140 


1A5C 


206C 


26B4 




206E 


40B0 


1A5A 


2072 


C5B0 


0080 


2076 


2184 




2075 


24F0 




207A 


40F0 


1A5A 


?o7r 


27B4 




2080 


484B 


365C 


2034 


4330 


2A3E 


2089 


484B 


365E 


208C 


2641 




208E 


4040 


1»2A 


2092 


2741 




2094 


C850 


1AFC 


2098 


C865 


007F 


2U9C 


41E0 


2CA0 


20A0 


4300 


2186 


20A4 


48F0 


1A50 


20A8 


C5F0 


0002 


20AC 


213E 




20AE 


03O0 


3777 


20B8 


C4U0 


OOOF 


20B6 


4330 


1F7C 


20BA 


C500 


OOOF 


208E 


2335 




20C0 


45D0 


16AC 


20C4 


4230 


1F7C 



2439 

24*0 

2441 

24*2 * 

2443 FLOPPY 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 FlOPPYl 

2457 

2458 

2459 

2460 

2461 

244? Fl_0PPY2 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 * 

2474 * 

2475 * 

2476 TRYTHIS 
2477 

2478 

2479 

2480 

2461 

2482 * 

2483 

2484 

2485 

2486 



STH 
STH 

B 

LH 

SLLS 

OH1 

STH 

STH 

LH 

3NZ 

LH 

LHI 

LHI 

BAL 

LIS 

AHM 

AIS 

STH 

CLHI 

3LS 

LIS 

STH 

SIS 

LH 

92 

LH 

AIS 

STH 

SIS 

LOAI 

LHI 

BAL 

B 



LH 

CLHI 

BNE 

LB 

NHI 

BZ 



R9.INHEA0 
RIO. INSECT 
TRYTHIS 

R3.I0RIVE+SVALU1 

R3.4 

R3»X»C0» 

R3.FMDCHOI 

R3,FMDCM0 

RlltlDIRPNT 

FLOPPYl 

R4,IDIR| RN 

R5,IOlRflLK 

R6.1271R5J 

R14tRDLRN 

R4.1 

R4.I0IRLRN 

Rll.4 

RU.IOIRPNT 

R11.128 

FL0PPY2 

S15.0 

R15.IDIRPNT 

R11 .4 

R4.IDIRRLKfRlU 

ENOOVOL 

ft4,IDI«flLK+2IRli) 

R4.THISLRN 

R4.1 

R5.SE0NUM 

R6»127»r5) 

R14.RQLRN 

SIZEIT 



R15.0UTFLAG 

R15.2 

THISONE 

R13.PDB+2? 

R13»X»0F» 

FINDNEXT 



INPUT DRIVE SELECTION 

FORM COMMANO MOOEL 
SAVE IT 

CURRENT DIRECTORY BLOCK INOEX 
SKIP IF NOT 2ER0 

SET UPPER 

AND LOWER UNITS 

READ 127 BYTES OF DIRECTORY 

INCREMENT FOR NEXT TIME 



AT LIMIT? 

RESET TO ZERO IF YES 



GET SEO NUM FROM DIRECTORY 

ZERO MEANS END OF VOLUME 

SET START LRN 

PLUS 1 IS WHERE PROGRAM STARTS 

SAVE INPUT FLOPPY LRN 

POINT BACK TO PDB 



CLHI R13»X«0F» 

BES THISONE 

CLH R13»V0LUME*«VALU1 

BNE FINDNEXT 



REAO THE PDB 



WHAT IS THE OUTPUT? 

IF FLOPPY. SELECTIVE OUTPUT FOR 

EACH DISKETTE. ELSE DO ALL 

PICK OUT THE FLAG DIGIT 

ZERO MEANS THIS PROGRAM 

GOES ON NO DISKETTE. A 

VALUE OF X»F» MEANS IT GOES ON 

EVERY OISKETTE. OTHER VALUES 

MUST MATCH THE VOLUME OPTION. 

TRY NEXT IF NO HATCH 



COMMON HBO CROSS GENERATOR Q6-252R04W96A13 
CONVERT PoB TO FLOPPY FORMAT 



20CS 


0300 


376E 


20CC 


4000 


1B02 


20D0 


0300 


376F 


2001* 


0200 


1B04 


2008 


O3D0 


3770 


20DC 


C4U0 


OOFE 


20E0 


0200 


1B05 


20E4 


0300 


3771 


20E8 


4000 


1906 


20EC 


48U0 


3772 


20FO 


4000 


lBoe 


20F4 


C830 


375C 


20F8 


2423 




20FA 


41D0 


2C52 


20FE 


03D0 


3777 


2102 


4000 


182A 


2106 


4820 


1A50 


210A 


2728 




210C 


2138 




210E 


C4D0 


OOOF 


2112 


C500 


flOOF 


2116 


2133 




2118 


CB40 


0020 


211C 


4040 


1AFC 


2120 


C83o 


375F 


2124 


2423 




2126 


41D0 


2C52 


212A 


4040 


1AFE 


212E 


C83o 


376? 


2132 


2422 




2134 


4100 


2C52 


2138 


4040 


1B00 


213C 


0340 


3775 


2140 


C540 


002E 


2144 


213A 




2146 


O340 


3776 


214A 


C440 


OOOF 


214E 


914C 




2150 


4640 


lBOO 


2154 


4040 


1B00 


2158 


4840 


3778 


215C 


4040 


1B2C 


2160 


C830 


3764 


2164 


244 




2166 


4803 


0000 


216A 


4004 


1B0C 


216E 


2632 




2170 


2642 




2172 


C540 


OOOA 


2176 


2088 




2178 


2134 




217A 


C830 


377A 


217E 


220C 





2488 


THlSONE LB 


R13.P0B+18 


2*89 


STH 


RIStLOU 


2490 


LB 


R13tP0B+19 


2*91 


STB 


R13tL0w+2 


2492 


LB 


R13«PDB+20 


2493 


NHI 


R13.X'FE» 


2494 


STB 


R13.L0W+3 


2495 


LB 


R13«P0B+21 


2496 


STH 


R13,HIGH 


2497 


LH 


R13»P0B+22 


2498 


STH 


R13.HI6H+2 


2499 


LOAI 


R3»P0B 


2500 


LIS 


R2.3 


2501 


SAL 


R13.PACK 


2502 


LB 


R13.P0B+27 


2503 


STH 


RIS'FHDFLAG 


2504 


LH 


R2.0UTFLAG 


2505 


SIS 


R2.2 


2506 


BN2 


SEOAOJ 


2507 


NHI 


R13iX»0c» 


2508 


CLHI 


R13«X»0F" 


2509 


BNES 


SEOADJ 


2510 


SHI 


R4,X'20< 


2511 


SEQADJ STH 


R4,SEQNUM 


2512 


LOAI 


R3.P0B+3 


2513 


LIS 


R2.3 


2514 


BAL 


H13»PACK 


2515 


STH 


R4.PARTN0 


2516 


LOAI 


R3,P0B+& 


2517 


LIS 


R2i2 


2518 


BAL 


R13.PACK 


2519 


STH 


R4.REVLEV 


2520 


LB 


R4.PD6+25 


2521 


CLHI 


R4,C»,» 


2522 


BNES 


NOPOINT 


2523 


LB 


R4»PDB*?6 


2524 


NHI 


R4,X'F« 


2525 


SLLS 


R4,12 


2526 


OH 


R4.REVLEV 


2527 


STH 


R4.REVLEV 


2528 


NOPOINT LH 


R4.PDB+2S 


2529 


STH 


R4iPKSRFV 


2530 


LHI 


R3.PDB+8 


2531 


LIS 


R4,0 


2532 


NAMELOOP LH 


R0.0<R3> 


2533 


STH 


R0,FF0RM(R4> 


2534 


AIS 


R3t2 


2535 


AIS 


R4,2 


2536 


CLHI 


R4.10 


2537 


BLS 


NAMELOOP 


2538 


BNES 


NAMELPOl 


2539 


LHI 


R3.PDB+30 


2540 


BS 


NAMELOOP 
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PICK UP START ADDRESS 
BITS 8J15 



BITS 16:23 



BITS 24:31 

PICK UP END AOORESS 

BITS 8:15 

BITS 16:31 

CONVERT TO FLOPPY TYPE PDB 

3 0I6ITS 

CONVERT SEQUENCE NUMBER 

IF FLOPPY OUTPUT, TEST PDB FLA6 

STORE IN FLOPPY PDB 

CHECK THE OUTPUT DEVICE 

IS IT A FLOPPY? 

IF NO, OON'T ADJUST SEQUENCE 

LS DIGIT IDENTIFIES T&RGET VOLUME 

•F« MEANS EVERY DISKETTE 

SKIP IF NOT ONE OF THE FOLG'S 

ADJUST F0L6 SEQUENCE NUMBER 

SET FLOPPY SEQUENCE NUMBER 

POINT TO 06- NUMBER 

THREE DIGITS 

PACK 06 PART NUMBER 

STORE IN FLOPPY POB 

POINT TO REV LEVEL 

2 DIGITS 

PACK REV LEVEL 

STORE IN POB 

LOOK FOR POINT 

NO REV EXTENSION 

ELSE GET EXTENSION nlGI T 

MASK SINGLE HEX DIGIT 

POSITION OVER MS nlGIT OF REV 

COMBINE 

STORE IN FLOPPY PDB 

GET PACKAGE REV 

STORE IN FLOPPY PDB 

POINT TO NAME FIELD 

INDEX 

COPY 30 BYTE NAME FIELD 

INTO FLOPPY POB 

BUMP POINTERS 

FIRST 10 BYTES? 

LOOP, NOT YET 

BRANCH IF PASSED IT 

NAME IS SPLIT IN POB 

POINT TO LAST PIECE OF NAME FIELD 



COMMON MKO CROSS GENERATOR 06-252R0*»M96A13 PAGE 51 11J01S5S 08/31/ftl 

CONVERT POB TO FLOPPY FORMAT 

3180 C5<»0 001E 25m NAMELP01 CLHI R«t»30 OONE 30 BYTES? 

218* 208F 25*2 BL NAMELOOP LOOP IF NO 



COMMON mo CROSS GENERATOR 06-252R04H96A13 
CALCULATE SIZE OF INPUT PROGRAM 



2186 


4800 


1808 


2544 


SIZEIT 


LH 


R13.HISH+2 


21&A 


4BD0 


1B04 


2545 




SH 


R13.L0W+2 


218E 


4000 


lAFA 


2546 




STH 


R13«SIZFI*2 


2192 


2369 




2547 




BNCS 


SIZEIT2 


2194 


48D0 


1906 


2548 




LH 


R13.HIGH 


219S 


2701 




2549 




SIS 


R13.1 


219A 


4B0Q 


1B02 


2550 


SlZEITl 


SH 


R13.L0U 


219E 


40D0 


1AF8 


2551 




STH 


R13«SIZFI 


21A2 


230<» 




2552 




BS 


SIZEIT3 


21A4 


4800 


1B06 


2553 


SIZE1T2 


LH 


Rl3«HIGH 


2146 


2207 




2554 




BS 


SlZEITl 


21AA 


2401 




2555 


SI2EIT3 


LIS 


R13.1 


21AC 


61Do 


1AFA 


2556 




AHM 


R13«SI?FI*2 


21B0 


2383 




2557 




BNCS 


SIZEIT4 


21B2 


6100 


1AF8 


2558 




AHM 


R13«SIZEI 


21B6 


48E0 


1AF8 


2559 


SIZEIT4 


LH 


R14«SIZfI 


21BA 


48F0 


lAFA 


2560 




LH 


R15«SIZFI+2 


21BE 


02FO 


1B82 


2561 




STB 


R15fLEFT0VER 


21C2 


932F 




2562 




LBR 


R2.R15 


21C* 


92EF 




2563 




STBR 


R14iRl5 


21C6 


94 3F 




2564 
2565 
2566 


• 
* 


EXBR 


R3.R15 


21C3 


4030 


lB7E 


2567 




STH 


R3, RECORDS 


21CC 


4030 


1880 


2568 




STH 


R3tR£C0R0SV 


21D0 


0A33 




2569 




AAS 


R3iR3 


2102 


9027 




2570 




SRLS 


R2.7 


2104 


0A32 




2571 




AAR 


R3.R2 


2106 


D320 


1B82 


2572 




LB 


R2, LEFTOVER 


210A 


C320 


007F 


2573 




THI 


R2tX'7F» 


210E 


2332 




2574 




BZS 


EVEN 


21E0 


2631 




2575 




AIS 


R3.1 


21E2 


4030 


lBOA 


2576 


EvEN 


STH 


R3.LRNS 
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END MINUS START 



SKIP IF NO CARRY 

PROPOGATE 

R14«R15=SIZE OF INPUT PROGRAM 

SAVE MOOULO 256 REMAINDER 

R2 HOLDS 2*»7 BIT 

R1S = SIZEI(l6(23lf I8tl5) 

R3 r SIZEI<«:15).U6!23> 

SIZEI HAS BEEN SHIFTED RI6HT 

8 PLACES (LS 24 BITS ONLY) 

NO OF 256 BYTE RECORDS 

SAVE FOR VERIFY PHASE 

SHIFT BACK LEFT ONE PLACE 

POSITION HISSING BIT 

ADO IT BACK IN 

R3 = NO OF 128 BYTE RECORDS 

TEST MODULO 126 REMAINDER 

SKIP IF REMAINDER ZERO 

ROUND QUOTIENT UP 

SAVE NUMBER OF LOGICAL RECOROS 



COHHON MUD CROSS GENERATOR 06-252R04H96A13 
OUTPUT POB DATA TO LIST DEVICE 



PAGE 53 11:01:58 08/31/61 



21E6 


C800 


2020 


21EA 


C850 


0046 


21EE 


4005 


3550 


21F2 


2752 




21F4 


2283 




21F6 


4810 


1AFC 


21FA 


4800 


1A66 


21F1 


4330 


?23E 


2202 


C800 


3136 


2206 


2711 




2208 


2333 




220A 


C800 


3332 


220E 


C8l0 


4F53 


2212 


4010 


3554 


2216 


4000 


3556 


221A 


4800 


1600 


221E 


4810 


1602 


2222 


4000 


3558 


2226 


4010 


355A 


?22« 


C800 


2E31 


222E 


4000 


355C 


2232 


0200 


355E 


2256 


0200 


355F 


2234 


4300 


?2AC 


223E 


C820 


3550 


2242 


2403 




2244 


41Fo 


0F18 


2248 


C840 


0030 


224C 


0240 


3555 


2250 


C840 


3620 


2254 


4040 


3556 


2258 


481C 


1AFE 


225C 


C820 


3558 


2260 


2403 




2262 


41F0 


0F18 


2266 


4840 


1B2A 


226A 


9044 




226C 


2339 




226E 


C640 


3030 


2272 


4040 


355C 


2276 


C840 


0046 


227A 


D240 


355B 


227E 


C840 


0052 


2282 


0240 


355E 


2286 


4810 


1800 


228A 


C820 


355F 


228E 


2402 




2290 


41F0 


oFie 


229* 


0310 


1B00 


2298 


9014 




229A 


2339 




229C 


0311 


157 A 


22A0 


C840 


002E 



2578 


SHOWPOB lhi 


RO»X'2020« 




2579 


LHI 


R5i70 




2580 


SHOUPDBO sth 


R0tPRlNT0UT<R5> 


BLANK OUT PRINT BUFFER 


2581 


SIS 


R5.2 




2582 


BNLS 


SHOWPOBO 




2583 


LH 


Rl.SEQNUH 


GET FLOPPY SEQUENCE NuMBEl 


2584 


L.H 


RO.OSFLAG 


DOING ONE OF THE O.S.'S? 


2585 


Bl 


SH0WPDB1 


SKIP IF NO 


2586 


LHI 


RO.C'16* 




2587 


SIS 


Rl.l 


WHICH ONE? 


2588 


BZS 


SH0U.0S1 


the First one 


2589 


LHI 


R0.C«32« 


THE SECOND ONE 


2590 


ShOW.OSI LHI 


Rl.C'OS' 


FIRST IS "0S16MDLS.1U" 


2591 


STH 


RliPRlNTOUT+4 


SECOND IS "0S32MDL2.U1" 


2592 


STH 


R0.PRINT0UT+6 


STORE "0S16" OR "0SS2" 


2593 


LH 


ROtOSID+iVALUl 


GET OPTIONAL CHARACTERS 


2594 


LH 


R1.0SID+SVALU2 




2595 


STH 


RO.PRINTOUTfS 


STORE "NOL?" 


2596 


STH 


R1.PRINTOUT»10 




2597 


LHI 


RO.C'.l' 




2598 


STH 


R0,PRINT0UT*12 


STORE ".111" 


2599 


STB 


R0tPRlNTOUT+14 




2600 


STB 


R0.PRINTOUT+15 




2601 


a 


showpdr? 


en r»« TTT(_r ctfi n 


2602 


ShOWPOBI loai 


R2. PRINTOUT 


WHERE SEQUENCE NUMBER S°E 


2603 


LIS 


R0,3 


THREE DIGITS 


26 4 


BAL 


RIStHEXASC 


CONVERT HEX TO ASCII 


2605 


LHI 


R4»C'0» 




2606 


STB 


R4tPRlNT0UT*5 


FILL IN CHARACTERS 06- 


2607 


LHI 


R4.C«6-f 




2608 


STH 


R4. PRINTOUT -f6 




2609 


LH 


Rl.PARTHO 


GET 06- PART NUMBER 


2610 


LOAI 


R2tPRINT0UT*8 


WHERE IT GOES 


2611 


LIS 


R0.3 


3 DIGITS 


2612 


BAL 


RIStHEXASC 


CONVERT 


2613 


LH 


R4.FM0FLA6 


GO FOR F LEVEL 


2614 


SRLS 


R4.4 


POSITION FIELD 


2615 


BZS 


NOFVARI 


SKIP IF ZERO 


2616 


OH I 


R4.CQ0' 


CONVERT TO ASCII 


2617 


STH 


R4.PRINTOUT+12 


STORE IT 


2618 


LHI 


R4.CF' 




2619 


STB 


R4,PRINT0UT+11 




2620 


NOFVARI LHI 


R4,C'R« 




2621 


STB 


R4.PRINT0UT+14 


PUT CHARACTER R IN OUTPUT 


2622 


LH 


Rl.REVLCV 


GET REV LEVEL 


2623 


LDAI 


R2tPRlNTOUT*15 


WHERE IT GOES 


2624 


LIS 


R0.2 


2 DIGITS 


2625 


BAL 


RIStHEXASC 


CONVERT 


2626 


LB 


RliREVLEV 




2627 


SRLS 


Rl.* 


LOOK FOR REV EXTENSION 


2628 


BZS 


SHOHPOB? 


SKIP IF NONE 


2629 


LB 


R1,HEXTAB(R1I 


CONVERT TO ASCII 


2630 


LHI 


R4,C'.' 





COMMON NKO CROSS GENERATOR 06-252R04M96A13 
OUTPUT P06 DAT* TO LIST DEVICE 
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22A4 


0240 


3561 


2631 


STB 


R4.PRINT0UT+17 


PUT POINT IN THE OUTPUT 




22A8 


D210 


3562 


2632 


STB 


RltPRlNT0UT+18 






?2AC 


4850 


1B2C 


2633 


SH0WPQB2 LH 


R5,PKGRFV 


TEST FOR PACKAGE REV 




22B0 


2334 




2634 


BZS 


SHOHPDBS 


SKIP IF ZERO 




22B2 


4050 


3564 


2635 


STH 


R5,PRINTOUT*20 






22S6 


2450 




2636 


LIS 


R5.0 






22B8 


4845 


180C 


2637 


SH0WP0B3 LH 


R4,FF0RMR5> 


copy fro" floppy pob 




22BC 


4045 


3568 


2638 


STH 


R4,PRINT0UT+2«MR5) 






22C0 


2652 




2639 


AIS 


R5.2 






22C2 


C550 


«01E 


2640 


CLHI 


R5.30 






22C6 


2087 




2641 
2642 


BLS 

* 


SH0KPD83 


LOOP THRU 30 BYTES 
COPY LOU ADDRESS 




22C8 


2402 




2643 


LIS 


R0.2 


MS 2 DIGITS 




22CA 


4810 


1B02 


2644 


LH 


R1,L0U 






22CE 


C820 


3588 


2645 


LHI 


R2.PRINT0UT+56 






2202 


41F0 


0F18 


2646 


BAL 


RIStHEXASC 






2206 


2404 




2647 


LIS 


R0.4 


LS 4 DIGITS 




2209 


4810 


iaoit 


2648 


LH 


R1.L0U+2 






220C 


2622 




2649 


AIS 


R2.2 






220E 


41F0 


0F18 


2650 


BAL 


R15»HEXsSC 






22E2 


2402 




2651 


LIS 


R0.2 






22E4 


4810 


1B06 


2652 


LH 


R1.HIGH 






22ES 


C820 


358F 


2653 


LHI 


R2.PRINT0UT+63 






22EC 


41FQ 


0F18 


2654 


BAL 


R15,HEXASC 






22F0 


2404 




2655 


LIS 


R0,4 






22F2 


4810 


1808 


2656 


LH 


RltHlGH+2 






f2F6 


2622 




2657 


AIS 


R2.2 






22F8 


41F0 


0F18 


2658 


BAL 


R15<HEXASC 






22FC 


484c 


1B2A 


2659 


LH 


R4.FHDFLAG 


SET FND FLAG 




2300 


C440 


000F 


2660 


NHI 


R4tX»F« 


LS DIGIT a FLOPPY NUMreR 




2304 


0344 


157ft 


2661 


LB 


R4tHEXTABIR4l 


CONVERT TO ASCII 




2308 


9148 




2662 


SLLS 


R4.8 






230A 


2640 




2663 


AIS 


R4.X'00» 


ADD A CARRIAGE RETURN 




230C 


4040 


3596 


2664 


STH 


R4.PRINTOUT+70 


STORE IN PRINT BUFFER 




2310 


C840 


OAOO 


2665 


LHI 


Rt.X'OAOO* 


LINE FEED S ZERO 




2314 


4040 


3598 


2666 


STH 


R4,PRINT0UT*72 


NARK END OF MESSAGE 




231S 


4800 


1A66 


2667 


LH 


ROiOSFLAG 


BUIL0IN6 TET IMAGE? 




231C 


2339 




2668 


BZ 


SH0WP0B4 


SKIP IF NO 




231E 


C600 


3030 


2669 


LHI 


ROiC'OO* 


START ADDRESS IS ACTUALLY ZERO 




2322 


4000 


3588 


2670 


STH 


R0.PRINT0UT+56 






2326 


4000 


358A 


2671 


STH 


R0,PRINT0UT+5S 






232A 


4000 


358C 


2672 


STH 


ROtPRlNTOUT+60 






232E 


48F0 


1A16 


2673 


SH0WP0B4 l_H 


R13,N0ST0P 


TEST IF BUILD PHASE OF BUlLDv 




2332 


2338 




2674 


BZS 


SH0WP0B5 


IF NO, OUTPUT TO LIST O^VICE 




2334 


C840 


ODOO 


2675 


LHI 


R4|X»0DO0' 


ELSE, OUTPUT JUST THE 




2338 


4040 


3S54 


2676 


STH 


R4.PRINT0UT+4 


SEQUENCE NUMBER TO THE 




233C 


41FQ 


12BC 


2677 


BAL 


R15tSETKB 


CONSOLE OEviCE 




2340 


230E 




2678 


B 


SH0MP0B6 






2342 


0300 


155B 


2679 


SH0WP0B5 LB 


R0tIOSAVE*l 


SET LIST OEVICE ID 


* 


2346 


2703 




2680 


SIS 


R0.3 


TEST IF LINE PRINTER 


* 


2348 


213& 




2681 


BNZ 


SH0MP0B6 


SKIP IF NO 


* 


234A 


4800 


160E 


2682 


LH 


RO.SLINCNT 


IF YES, TEST IF PAGE FULL 


* 


234E 


2137 




2683 


BNZ 


SH0WPDB6 


SKIP IF NO 


* 



COMMON HMD CROSS GENERATOR 06-252RQ l M196A13 
OUTPUT PDB DATA TO LIST DEVICE 



2350 


41F0 


OFBA 


2664 


BAL 


R15«SPRINT 


2354 


3500 




2685 


OAC 


HEADER 


2356 


24F2 




2686 


LIS 


R15»2 


2358 


<*0F0 


160E 


2687 


STH 


R15»*LINCNT 


?35C 


«F 


OFBA 


2688 


SH0UPDB6 BAL 


R15»*PRTNT 


2360 


3550 




2689 


OAC 


PRINTOUT 
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IF YES, ISSUE FORH FEED 
FOLLOWED BY HEADER MESSAGE 



PRESET LINE COUNT 
PRINT LISTING 



COMMON MHO CROSS GENERATOR 06-252R04M96A13 
POSITION OUTPUT MEDIA * TRANSFER PDB 



2362 


2420 




2364 


4020 


1B8A 


2366 


4820 


167C 


236C 


4830 


1A50 


2370 


2731 




2372 


t330 


2428 


3376 


2731 




2378 


4230 


246E 


237C 


4830 


1A22 


2380 


4030 


1A24 


2384 


41E.0 


2048 


2388 


4530 


1AFC 


238C 


4330 


23F8 


2390 


48F0 


1A18 


:>394 


423o 


262E 


2398 


0833 




?39A 


4230 


2420 


239£ 


0855 




23A0 


2336 




23A2 


t845 


385A 


23A6 


41C0 


2ABC 


23AA 


230F 




23AC 


D4A0 


1A11 


23B0 


4330 


2306 


23B4 


084A 




23R6 


2741 




23B8 


41C0 


?ABC 


23BC 


<+lEo 


?CA0 


23C0 


484Q 


360A 


23C4 


41C0 


2ABC 


23C8 


41E0 


2CA0 


23CC 


4850 


586A 


2300 


0A5<* 




2302 


2651 




23D4 


2303 




2306 


0350 


1A13 


230A 


4050 


1A28 


230E 


4050 


1688 


23E2 


2651 




23E4 


4A50 


lBOA 


23E8 


4550 


1A26 


23EC 


4280 


263A 


23F0 


C850 


3364 


23F4 


4300 


1C50 


r* V n 


iiorn 


* A 4 a 


csro 


TU»»U 


XfXO 


23FC 


4230 


239E 


2400 


230C 




2402 


48C0 


1A18 



2691 


POSITION 


LIS 


R2,0 


2692 




STH 


R2,UTILTTY 


2693 




UH 


R2,0UT0EV+SVALU1 


2694 




LH 


R3.0UTFLAG 


2695 




SIS 


R3.1 


2696 




BZ 


OUTMAG 


2697 




SIS 


R3.1 


2698 




8NZ 


OUTOISK 


2699 




LH 


R3.FHDCM00 


2700 




STH 


R3.FM0CM0 


2701 




BAL 


RX4.RDIRECT 


2702 


* 






2703 


* 






2704 


* 






2705 




CLH 


R3.SEQNUH 


2706 




BE 


THERE 1 


2707 




LH 


R15.VERIFLAG 


27f>6 




BNZ 


MISSING 


2709 




LOAR 


R3.R3 


2710 




BNZ 


EOVRTN 


2711 


THERE1A 


LDAR 


R5.R5 


2712 




BZ 


FIRST 


2713 




LH 


R4,INBUF-2<R5> 


2714 




BAL 


R12iSULH56 


2715 




B 


PRIOR 


2716 


FIRST 


CLB 


R10.STOTR 


27l7 




BE 


FRST.BLK 


2718 




LOAR 


R4.R10 


2719 




SIS 


R4.1 


2720 




BAL 


R12«SULM36 


2721 




BAL 


R14.RDLRN 


2722 




LH 


R4.IN8UF+126 


2723 




BAL 


R12»SULH56 


27?i» 


PRIOR 


BAL 


R14tR0LRN 


2725 




LH 


R5.INBUF+14 


2726 




AAR 


R5.R4 


2727 




AIS 


R5,l 


2728 




BS 


NEMSTART 


2729 


FRST.BLK 


LB 


R5,STSAV 


2730 


"JEWSTART 


STH 


R5,NEXTiRN 


2731 




STH 


R5,P0BSTART 


2732 




AIS 


R5.1 


2733 




AH 


R5.LRNS 


2734 




CLH 


R5.MAXLRN 


2735 




BL 


diskette 


2736 


* 






2737 




LOAI 


R5.TBIGMSG 


2738 




B 


CONHSG1 


2739 


* 






OTii rt 


TnFDri 


1 U 


DiSilfratn ac 


«- » T W 


I nk'>b* 


w ■ 




2741 




BNZ 


THERE 1 A 


27»2 




BS 


THERE 


2743 


THERE2 


LH 


R12»VERlFLA6 
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CLEAR UTILITY FLAG 
OUTPUT DEVICE NUMBER 
LOOK AT OUTPUT DEVICE 
MAG TAPE? 
BRANCH IF YES 
FLOPPY? 
NO, A DISK 

SET UP FOR OUTPUT DISKETTE 
READ FLOPPY DIRECTORY 
ON RETURN, R3 CONTAINS EOV FLAG 
OR A MATCHING SEQUENCE NUMBER. 
R5 IS INOEX TO DIRECTOR* BLOCK. 
SEQUCNCE NUMBER CHECK 
DUPLICATE SEQUENCE NUmBERMI 
TEST IF OOING A VERIFY 
NON PRESENT SEQUENCE I 

EOV NOT FOUNOl I 

FIRST ENTRY IN THE BLOCK? 

BRANCH IF YES 

LOAD PREVIOUS PDB 



FIRST BLOCK? 
SKIP IF YES 

DECREMENT BLOCK POINTER 

REAO PREVIOUS DIRECTORY BLOCK 
LAST ENTRY IN THAT BLOC* 

REAO PDB OF LAST PROGRA* 
GET SIZE OF LAST PROGRAM 
AOD START LRN OF LAST PROGRAM 
PLUS 1 FOR THE PD9 

START LRN FOR FIRST PROSRaM 

= start lRn for this program 
where the pdb starts 
plus 1 for the pdb 
plus size of this program 
compare to ceiling 

GO ON, OKI 

ELSE, TOO BIG 

OISKETTE FULL MESSAGE TO CONSOLE 

DEVICE... RETURN TO OPTlN. 

TEST VERIFY FLAG 
RETURN^IF SET"" 
ELSE ERROR 
TEST VERIFY FLAG 



COMMON HMD CROSS GENERATOR 06-252R04M96A13 
POSITION OUTPUT f«EDlA i TRANSFER ^OB 



2406 


2339 


2744 


BZS 


THERE 


2408 


4885 3860 


2745 


LH 


R8.INBUF+4CR5) 


240C 


D395 3863 


2746 


L8 


R9.INBUF+7CR5J 


2410 


D3A5 3862 


2747 


LB 


R10»INBUF+6«R5) 


2414 


4300 25D6 


2748 
2749 * 


a 


THERE2A 


2418 


C850 3385 


2750 THERE 


IDAI 


R5.60TMS6 


241C 


4300 1C50 


2751 
2752 * 


B 


C0NMS61 


2420 


C850 3354 


2753 EOVRTN 


LOAI 


R5»E0VRTNN 


2424 


4300 1C50 


2754 

2755 * 


B 


CONBSS1 


2428 


4840 1688 


2756 0UTHA6 


LH 


R4.SELCw2+SVALUl 


242C 


41F0 2E8C 


2757 


BAL 


R15.NOMOTION 


2430 


487o 1A18 


2758 


LH 


R7.VERIFLAG 


2434 


213B 


2759 


BNZ 


VMAGPDB 


2436 


C850 375C 


2760 


LOAI 


R5.PDB 


243A 


C865 0032 


2761 


LHI 


R6.50JR5) 


243E 


OE20 1A3A 


2762 


OC 


R2.6KSP 


2442 


4100 ?B62 


2763 


BAL 


R13.WRITEMAG 


2446 


4300 ?670 


2764 
2765 * 


a 


DUPE PR 06 


244A 


DE20 1A2F 


2766 VMAGPDB 


oc 


R2. FORWARD 


744F 


C85o »Asr 


2767 


■ Oft* 


R5.IN8UF 






W*-Si » 


2452 


C865 0032 


2768 


LHI 


R6.50IR5I 


2456 


4100 2B6A 


2769 


BAL 


R13«READHAG 


245A 


C850 375C 


2770 


LDAI 


R5.P0B 


245E 


C860 0032 


2771 


LHI 


K6»50 


2462 


41E0 2EA4 


2772 


BAL 


R14 (COMPARE 


2466 


41F0 2624 


2773 


BAL 


R15.VERR.002 


246A 


4300 2670 


2774 

2775 * 

2776 * 


B 


OUPEPROS 


246E 


4830 167E 


2777 OllTOlSK 


LH 


R3.0UTDEV+SVALU2 


2472 


4840 1668 


2778 


LH 


R4,SELCW2*SVALU1 


2476 


4870 1A6C 


2779 


LH 


R7,OISKTrP2 


247A 


4070 1A68 


2780 


STH 


R7.0ISKTYPE 


247E 


4870 1A66 


2781 


LH 


R7.0SFLAG 


2482 


4330 25B0 


2762 

2783 * 

2784 * 

2785 * 


BZ 


OUTOISK1 


2486 


41C0 2AC6 


2786 


BAL 


R12»SULH56.2 


248A 


41C0 2AD0 


2787 


BAL 


R12iZER0BUFF 


248E 


488C 1A1A 


2788 


LH 


R8.NEXTCYL 


2492 


4890 1A1C 


2789 


LH 


R9.NEXTHEA0 


2496 


<*8A0 1A1E 


2790 


LH 


R10.NEXTSECT 


249A 


41F0 2FA8 


2791 


BAL 


R15.F0RMLBA 


249E 


4870 1AFC 


2792 


LH 


R7.SE8NUM 


24A2 


C470 0002 


2793 


NHI 


R7,2 


24A6 


0A77 


2794 


AAR 


R7,R7 


24A8 


4007 1A7A 


2795 


STH 


R0,STARTLBA(R7» 


24AC 


4017 1A7C 


2796 


STH 


R1.STARTLBA+2IR71 
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ERROR IF NOT VERIFY 
6ET CYLINDER NUMBER 
SET HEAD NUMBER 
SET SECTOR NUMBER 



DUPLICATE SEOUENCE NUhbER 



EOV NOT FOUND 



PICK UP SELCH ADDRESS 

WAIT FOR NOHOTION 

TEST VERIFY FLAG 

BRANCH IF SET 

START ADDRESS 

END ADDRESS 

BACK SPACE OVER FILE MARK 

WRITE THE PDB 

DO REST OF PROGRAM 

SKT** FORWARO PASSED FtLE MARK 



READ THE PDS 

PATTERN START AOORESS 

NUMBER OF BYTES 

COMPARE PATTERN TO INRU^ 

"PDS VERIFY ERROR" 



CONTROLLER AOORESS 
SELCH ADORESS 



TEST IF BUILDING OS 
BRANCH IF NO 

OSFLAG WILL BE SET WHILE WE'RE 
COPYING LIBRARY SEQUENCE NUMBERS 
001 *NO 002 TO THE OUTPUT DISK. 
INSTEAD OF WRITING THE PROGRAM 
DEFINITION BLOCK. OUTPUT DATA 
TO HAKE THIS PROGRAM LOOK LIKE A 
TET'ED O.S. 

STARTING CYLINDER, HEAD" SECTOR 
CONVERT TO LOGICAL BLnCK ADDRESS 
SEaUENCE 001 OR 002 

R7 = OR 4 

SAVE FOR DIRECTORY 



COMMON MHO CROSS GENERATOR 06-252R04M96A13 
POSITION OUTPUT MEDIA & TRANSFER PDB 



2 1*60 


4870 


1AFC 


24B4 


2771 




2466 


2332 




2468 


2571 




24BA 


4070 


lASA 


24BE 


4310 


24F6 


24C2 


C8E0 


0101 


24C6 


40E0 


J85C 


24C4 


O2L0 


S87A 


24CE 


03E0 


1B08 


2402 


O2E0 


38C2 


2406 


26E1 




2408 


40E0 


S86A 


?4DC 


Q2E0 


38C6 


24E0 


25E2 




24E2 


D2E& 


S8C3 


24E6 


25E1 




24E8 


4Q£0 


3872 


24EC 


24EF 




24EE 


02EO 


3871 


24F2 


4300 


2546 


24F6 


4870 


1AFC 


24FA 


C470 


0002 


24FE 


4800 


1B04 


2502 


C8E0 


4000 


2506 


C8F0 


2302 


250ft 


40F0 


38BC 


250E 


C8F0 


0100 


2512 


40F0 


38BE 


2516 


C8F0 


4300 


251A 


40F0 


38C0 


251E 


40E0 


38C2 


2522 


4007 


38C2 


2526 


D220 


3806 


252A 


0230 


3808 


252E 


0240 


3809 


2532 


4870 


1A6C 


2536 


4877 


IAEA 


253A 


0270 


3807 


253E 


C87o 


Olll 


25*2 


4070 


360A 


2546 


4870 


1A18 


254A 


4230 


2584 


254E 


41F0 


2F3C 


2552 


4060 


1A1A 


2556 


4090 


1A1C 


255A 


40AO 


1A1E 


255E 


487n 


j ASA 


2562 


2671 




2564 


4070 


385C 


2568 


4070 


1A8A 



2797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2609 

2810 

2611 

2812 

2613 

2814 

2615 

2816 

2817 

2818 

2819 

282 

2821 

2622 

2623 

2824 

2825 

2826 

2827 

2826 

2829 

2830 

2831 

2832 

2633 

2634 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2642 

2843 

2844 

2845 

2846 

2847 

2648 

2649 



LH 
SIS 

* 

BZS 
LCS 

TET.OOl STH 
BNM 
LHI 
STH 
STB 
LB 
STB 
AIS 
STH 
STB 

us 

STB 
LCS 
STH 
LIS 
STB 
B 

TfT.002 LH 
NHI 
LH 
LHI 
LHI 
STH 
LHI 
STH 
LHI 
STH 
STH 
STH 
STB 
STB 
STB 
LH 
LH 
STB 
LHI 
STH 

* 

SECTOR LH 
3NZ 
BAL 

SECTOROK STH 
STH 
STH 
LH 
AIS 
STH 
STH 
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R7iSEQNU* SET SEOUENCE NUMBER ASAlN 

R7.1 R7 = OR 1 

OsFlRST O.S. l=SECONO O.S. 
SKIP IF OOINS THE FIRST O.S, 
FOR THE SECOND O.S. ONLYt THERE 
HILL BE A "LIB" RECORO 
BRANCH IF FIRST O.S. 



TET.OOl 

R7.1 

R7, BLOCK 

TET.002 

R14«X»0101« 

R14»INBUF 

R14«INBUF+30 

R14»HIGH*2 

R14.INBUF+102 

R14.1 

R14tINBUF*14 

H14»INBUF*106 

R14.2 

R14.INBUF+103 

R14il 

R14.INBUF+22 

R14»X»F» 

R14tINBUF+21 

SECTOR 

R7,SEQNUH 

R7.2 

R13»L0U+2 

R14.X«4000' 

R15»X«2302« 

R15t INBUF+X'60' 

R15»X'0l00* 

R15»INBuF+X«62* 

R15»X'4300« 

R15»IN8UF*X'64« 

R14ilNBuF+X»66' 

R13»INBUF*X«66'(R7) 

R2.INBUF+X»7A- 

R3,INBUF+X«7C« 

R4.INBUF*X , 70» 

R7.DISKTYP2 

R7.DEVCOOESCR7) 

R7,INBUF*X'7B' 

R7,X«0U1« 

R7.INBUF+X«7E» 

R7.VERIFLAG 

VERI.OS 

R15.WNXTSECT 

R8.NEXTCYL 

R9.NEXTHEAO 

R10«NEXTSECT 

R7. BLOCK 

R7.1 

R7.INBUF 

R7 i BLOCK 



TTPE + NO. OF LIB RECORDS 

MS END ADDRESS a XX 

CTOP = XXFE 

R14 = YY 

SECTOR COUNT = OOYY 

UTOP = YYOO 



MXSP 

MS 0I6IT OF MXSP 

SO WRITE THIS FIRST RrrORD 
SEQUENCE 001 OR 002 
KEY LOCATIONS: 



SEo 001 
(16 BIT) 
0060 = 2302 



SEo 002 
(32 BIT) 
0060 = 2302 



0062 = 0100 0062 = 0*00 

006** = tSOO 0064 = 4300 
* 0066 = 4000 

0066 = START 0068 = START 
DEVICE NUMBER 
CONTROLLER ADDRESS 
SELCH ADDRESS 

6ET O.S. DEVICE CODE 
STORE DEVICE CODE 

O.s. EXTENSION 

TEST VERIFY FLAG 
SKIP IF SET 
WRITE 256 BYTES 
SAVE POINTERS 



INCREMENT SECTOR COUNT 



COMMON Mmo CROSS GENERATOR 06-252R04H96A13 
POSITION OUTPUT MEDIA 4 TRANSFER POB 



256C 


4330 


24F6 


2570 


0*70 


1B04 


257* 


4380 


2670 


2578 


41C0 


2AC6 


257C 


41C0 


2AO0 


2580 


4300 


2546 


258i» 


C850 


3C5C 


2588 


C865 


OQFF 


258C 


41F0 


2F38 


2590 


41EC 


2E9C 


2594 


41F0 


259C 


2598 


4300 


2552 


259C 


033F 




259E 


4850 


1B8A 


25A2 


023F 




25A4 


C850 


3411 


25A8 


40FO 


1B8A 


25SC 


U300 


1C58 


25B0 


41F0 


?ECC 


2SB4 


456c 


1AFC 


2538 


.. » * ~ 




13JU 


2402 


258C 


48F0 


1A18 


?5C0 


4230 


262E 


25C4 


0866 




?5C6 


4230 


2420 


25CA 


4880 


1A1A 


?5CE 


4890 


lAlC 


25D2 


48A0 


1A1E 


?5D6 


408D 


1A74 


25DA 


4090 


)A76 


25DE 


40A0 


1A78 


25E2 


C850 


375C 


25E6 


C865 


OOFF 


?5EA 


4870 


1A18 


25EE 


215D 




25F0 


41E0 


2D0A 


25F4 


41F0 


?F8A 


25F8 


4080 


1A1A 


25FC 


4090 


1A1C 


2600 


40A0 


1A1E 


2604 


4300 


2670 


2608 


41C0 


?AC6 


260C 


41E0 


?006 


2610 


C860 


375C 


2614 


C860 


0032 


2618 


41E0 


2EA4 


261C 


41F0 


2624 


2620 


4300 


25F4 



2850 




BZ 


TET.D02 


2851 




CL8 


R7,L0W+2 


2852 




BNL 


DUPEPROS 


2853 




SAL 


R12.SULH36.2 


2854 




BAL 


R12.ZER0BUFF 


2855 




B 


SECTOR 


2856 


VERI.OS 


LDAI 


R5.CHKBIIF 


2657 




LHI 


R6.255J35! 


2658 




BAL 


R15.RNXTSECT 


2859 




BAL 


R14«C0MPAREX 


2660 




BAL 


R15.0SERR0R 


2861 




B 


SECTOROK 


2862 


• 






2863 


OSERROR 


BER 


R15 


2864 


0SERR0R1 


LH 


R5. UTILITY 


2865 




BNZR 


R15 


2866 




LDAI 


R5.0SERRH 


2867 




STH 


RlStUTH ITY 


2668 




B 


CONMSG 


2869 


* 






2870 


* 






2871 


OllTDlSKl 


BAL 


RIStDlRSERCH 


2872 




CLH 


R6.SE0NUH 


2S73 




BE 


THERE2 


2874 




LH 


R15iVERTFLAG 


2875 




8NZ 


MISSING 


2876 




LDAR 


R6«R6 


2877 




BNZ 


EOVRTN 


2878 




LH 


R8.NEXTCYL 


2679 




LH 


R9.NEXTHEAD 


2680 




LH 


R10»NEXTSECT 


2681 


THERE2A 


STH 


RStOIROAT 


2882 




STH 


R9.DIR0AT+2 


2383 




STH 


R10.DIRDAT+* 


2664 




LDAI 


R5.PDB 


2885 




LHI 


R6.255JR3) 


2886 




LH 


R7.VERIFLAG 


2887 




BNZ 


VERIPDH 


2888 




BAL 


R14.WRITSECT 


2889 


GO. DISK 


BAL 


R15.NEXTOISK 


2890 




STH 


R8.NEXTCYL 


2891 




STH 


R9.NEXTMEA0 


2892 




STH 


R10.NEXTSECT 


2893 




B 


DUPEPROG 


2894 


* 






2695 


VERIPDB 


BAL 


R12.SULH56.2 


2896 




BAl 


R14.REA0SECT 


2897 




LDAI 


R5.PDB 


2898 




LHI 


R6.50 


2899 




9AL 


R14. COMPARE 


2900 




BAL 


K15«VERR.002 


2901 




B 


GO. DISK 


2902 


* 
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DONE LIB. DO FIRST DATA RECORD 
AT REAL START ADDRESS YET? 
YES. PUT OUT THE PROGRAM IMAGE 
NO. DO 256 MORE 



new start 

read a sector 
compare to in8uf 
"o.s. image verify error" 
branch if match 

return if good compare 
test utility flag 
return if already set 
o.s. image verify error 
set utility flag 
return from conmsg on r15 



READ THE OISK DIRECTORY 

COMPARE TO SEOUENCE NUMBER 

DUPLICATE 

TEST IF DOING A VERIFY 

IF YES, NO SEO NUM MATCH 



WHERE THIS ONE GOES 



SAVE INFO FOR DIRECTORY UPDATE 



set buffer limits 

check verify flag 

skip if set 

else write the pdb 

bump pointers 

pointing to where the program starts 



60 00 THE PROGRAM 



READ THE POB 

PATTERN START AODRESS 

NUMBER OF BYTES 

COMPARE PATTERN TO INBU? 

"POB VERIFY ERROR" 

BUMP POINTERS J DO THE PROGRAM 



COMMON MMO CROSS GENERATOR 06-232R04H96A13 
POSITION OUTPUT MEDIA * TRANSFER POB 



page 60 U:oi:ss oe/3i/ai 



2624 033F 
2626 C85o 33FE 
262ft 4300 1C58 



262E 


C850 


34QD 


2632 


41F0 


1C58 


2636 


4300 


1F7C 


2634 


4840 


1A28 


263E 


4850 


1A16 


26*2 


233E 




2644 


41C0 


2ABC 


2648 


4XE0 


2CA0 


264C 


C850 


lAFC 


2650 


C«60 


002E 


2654 


41E0 


2EA4 


2658 


41F0 


?624 


265C 


2307 




265t 


C850 


lAFC 


2662 


C865 


007F 


2666 


41E0 


2000 


266A 


2441 




266C 


6140 


1A28 



2903 
2904 
2905 
2906 



2908 
2909 



2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 



VERR.002 BER 
LOAI 
B 

* 



2907 HISSING tDAI 



BAl 
B 



DISKETTE LH 
LH 
BZ 
BAL 
BAL 
LDAI 
LHI 
BAL 
BAL 
B 

DlSKETTl LHI 
LHI 
BAL 

DISKETT2 LIS 
AHH 



R15 

R5tVERRMS62 

CONHSG 

R5t ABSENTS 
R15«C0NHSG 
FINDNEXT 



R4.NEXTLRN 

R5tVERlFLAG 

DlSKETTl 

R12.SULH56 

R14.RDLRN 

R5.SEQNIJM 

R6.46 

R14tC0MPARE 

R1S«VERR.002 

OISKETT? 

R5iSEQNuM 

R6il27(R5l 

R14iWRLRN 

R4.1 

R4.NEXTLRN 



RETURN IF 600D COMPARE 
"PDB VERIFY ERROR" 
RETURN FROM CONMSG ON Rl5 

"NO SUCH SEQUENCE ON OUTPUT HEOI*" 

PRINT MESSAGE 

LOOK FOR NEXT PROGRAM 



START LRN FOR THIS PROGRAM 

BRANCH IF NOT VERIFY 

READ IN THE PDB 
PATTERN START ADDRESS 
NUMBER OF BYTES 

PDB VERIFY ERROR 

SET POINTERS TO THE POR 

HRITE THE POB 

BUMP WORKING PDB POINTE" 



COMMON HMD CROSS GENERATOR 06-252R04M96A13 
TRANSFER ACTUAL PROGRAM 
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2670 


C860 03FF 


2927 


OuPEPROG LHI 


R6.1023 


2674 


4850 1B7E 


2928 


LH 


R5. RECORDS 


2678 


C550 0004 


2929 


CLHI 


R5.4 


267C 


2383 


2930 


BNLS 


GETSOHE 


267E 


C860 OOFF 


2931 


LHI 


R6.255 


2682 


C850 385C 


2932 


GETSOHE ldai 


R5.INBUF 


2686 


4060 35B8 


2933 


STH 


R6.R6SAVE 


268A 


C865 03FF 


2934 


t"l 


R6.1023(S5i 


268E 


41C0 2AD0 


2935 


BAL 


R12.ZER0BUFF 


2692 


1(860 3SB8 


2936 


LH 


R61R6SAVE 


2696 


0A65 


2937 


AAR 


R6.R5 


2698 


4820 1664 


2938 


LH 


R2.IN0EV+SVALU1 


269C 


4830 1A4E 


2939 


LH 


R3.INFLAG 


26A0 


C530 0001 


2940 


CLHI 


R3.1 


26A4 


2139 


2941 


BNE 


N0THA6 


26A6 


1*810 1670 


2942 


LH 


R4.SELCH1+SVALU1 


?6AA 


4100 2B6A 


2943 


BAL 


R13tREADHA6 


26AE 


41C0 2AE6 


2944 


BAL 


R12.H0WMANY 


26B2 


1300 2714 


2945 


B 


WRlTEIT 


26B6 


C530 0002 


2946 


NOTWAG CLHI 


R3.2 


26BA 


4230 26DC 


2947 


BNE 


N0TFH0 


263E 


4830 1A20 


2948 


LH 


R3.FH0CM0I 


26C2 


4030 1A24 


2949 


STH 


R3.FHDCM0 


26C6 


teno 1A2A 


2950 


LH 


R4,THISLRN 


26CA 


41EQ 2CA0 


2951 


BAL 


R14.RDLRN 


26CE 


41C0 2AE6 


2952 


BAL 


R12.H0WMANY 


26D2 


9077 


2953 


SRLS 


R7.7 


2604 


6170 1A2A 


2954 


AHM 


R7.THISLRN 


26D8 


4300 27m. 


2955 


B 


KRITEIT 


26DC 


"♦830 IA6A 


2956 


N0TFM0 LH 


R3.0ISKTYP1 


?6£0 


4030 1A68 


2957 


STH 


R3.DISKTYPE 


26E4 


4830 1666 


2958 


LH 


R3,IN0EV+«VALU2 


26E8 


4840 1670 


2959 


LH 


R4,SELCH1+$VALU1 


26EC 


4880 1A60 


2960 


LH 


R8.INCYL 


26F0 


489o 1A62 


2961 


LH 


R9.INHEA0 


26F4 


48A0 lA64 


2962 


LH 


RIO 'INSECT 


26F8 


41F0 2F36 


2963 


GET256 8AL 


R15.HNXTSECT 


26FC 


CA50 0100 


2964 


AHI 


S5.256 


2700 


0556 


2965 


CLAR 


R5.R6 


2702 


2085 


2966 


BLS 


GET256 


270* 


4080 1A60 


2967 


STH 


R8.INCYL 


2708 


4090 1A62 


2968 


STH 


R9.INHEAD 


270C 


40A0 1A64 


2969 


STH 


RIO.INSCCT 


2710 


41C0 2AE6 


2970 
2971 


BAL 


R12.H0WHANY 


271* 


4860 1086 


2972 


WRlTEIT LH 


R6tPR0GSlZE 


2718 


2761 


2973 


SIS 


R6.1 


271A 


C850 385C 


2974 


LDAI 


R5.INBUF 


271E 


0A65 


2975 


AAR 


R6.R5 


2720 


4820 167C 


2976 


LH 


R2t0UT0EV+*VALUl 


272<f 


4830 1A50 


2977 


LH 


R3iOUTFLA6 


2728 


2731 


2978 


SIS 


R3.1 


272A 


4330 279C 


2979 


BZ 


C0PYMAG 



SEE IF ME CAN 00 1KB 

NO. OF 256 BYTE RECORDS TO 00 

ARE THERE 4 OR MORE? 

YES. DO 4 RECORDS «102* BYTES) 

IF NO. JUST DO 256 BYTES 

START ADDRESS 



CLEAR THE INPUT BUFFER 

FORM FINAL ADDRESS 

LOOK AT INPUT DEVICE CODE 

NAG TAPE? 

BRANCH IF NO 

YES MAG TAPE..R4 s SELCH ADORESS 

REAO 1024. 256. OR FEWER BYTES 

SEE HOW MANY BYTES CAME IN 

GO WRITE TO OUTPUT 

FLOPPY? 

BRANCH IF NO 

YES FLOPPY... GET INPUT COMMAND MODEL 

COMMAND MODEL FOR INPUT DRIVr 

CURRENT INPUT DRIVE POSITION 

REAO 124. 256. OR 1024 BYTES 

SEE HOW MANY CAME IN 

DIVIDED BY 128 = LRNS 

INCREMENT CURRENT POSITION 

YES DISK... GET INPUT DISK TYPE 

SELECT TYPE FOR INPUT DISK 

CONTROLLER ADDRESS 

SELCH ADDRESS 

CURRENT INPUT DISK POSITION 



READ 256 BYTES AT A TIME 

BUMP START ADDRESS 

FINISHED? 

READ ANOTHER SECTOR IF NO 

UPDATE CURRENT DISK POSITION 



SEE HOW MANY WE READ 

NUMBER OF BYTES MODULO 128 
MINUS 1 FOR ENO ADDRESS 
R5 = START ADDRESS 
R6 = END ADORESS 

R2 gets output device number 
check output device code 

HAG TAPE? 



COMMON H*n CROSS GENERATOR 06-252R04H96A13 
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TRANSFER ACTUAL PROGRAM 



272E 


2731 




2730 


4230 


27BE 


2734 


4840 


1A28 


2738 


1*830 


1A22 


273C 


4030 


1A24 


2740 


4830 


1A18 


2744 


213B 




2746 


41E0 


?D00 


274A 


4860 


1B86 


374E 


9067 




2750 


0A46 




2752 


404o 


1A28 


2756 


4300 


281E 


275fi 


0665 




275C 


C850 


3C5C 


276U 


0A65 




2762 


41E0 


?CA0 


2766 


4860 


1B86 


276A 


9067 




276C 


0A46 




276E 


4040 


1A28 


2772 


486C 


1386 


2776 


C8F0 


281E 


277A 


41E0 


?EA0 


277E 


4330 


281E 


2782 


4870 


1A66 


2786 


4230 


259E 


278A 


4850 


1B8A 


278E 


023F 




2790 


C850 


33AD 


2794 


4050 


1B8A 


2798 


4300 


1C58 


279C 


4840 


1688 


27A0 


4870 


1A18 


27A4 


2135 




27A6 


41D0 


2B62 


27AA 


4300 


281E 


27AE 


0865 




27B0 


C850 


3C5C 


27B4 


OA65 




27B6 


41D0 


2S6A 


27BA 


4300 


2772 


27BE 


4830 


167E 


27C2 


48*0 


1688 


27C6 


4880 


1A1A 


27CA 


4890 


1A1C 


27CE 


46A0 


1 A1F 


27D2 


4870 


1A6C 


27D6 


4070 


1A68 


270A 


4870 


1A18 



2980 

2981 

29B2 

2983 

2984 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 

2995 

2996 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

S007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3926 

3027 

3028 

3029 

3030 

3031 

3032 



SIS 

BNZ 

LH 

LH 

STH 

LH 

BNZ 

BAL 

LH 

SRLS 

AAR 

STH 

B 

* 

VERIFND2 SAR 
LDAI 
AAR 
BAL 
LH 
SRLS 
AAR 
STH 

VrRIFYQl LH 

LOAI 

BAL 

BE 

LH 

BNZ 

LH 

BNZR 

LDAI 

STH 

a 

COPTHAG LH 
LH 
BNZ 
BAL 
B 

VERINAG2 SAR 
LOAI 
AAR 
BAL 
B 

* 

DlSKOUT LH 
LH 
LH 
LH 
LH 
LH 
STH 
LH 



R3.1 

OISKOUT 

R4.NEXTLRN 

R3.FH0CHD0 

R3»FNDCM0 

RS.WERIFLAG 

VERIFMD? 

R14»WRLRN 

R6tPR0SSlZE 

R6i7 

R4.R6 

R4,NEXTLRN 

OUTTEST 

Rfe,R5 

R5»CHKBUF 

R6.R5 

R14.ROLRN 

R6tPR0GSIZE 

R6.7 

R4iR6 

R4.NEXTLRN 

R6.PR0GSIZE 

R15»0UTTEST 

R14«C0MPAREY 

OUTTEST 

R7,OSFLAG 

OSERRORl 

R5. UTILITY 

R15 

R5.CHKERRH 

R5, UTILITY 

C0NMS6 

R4.SELCH2+SVALU1 

R7.VERIFLAG 

VERI1AS? 

R13iWRITEMA6 

OUTTEST 

R6.R5 

R5.CHKBUF 

R6.R5 

Rl3«READMAG 

VERIFY01 

R3,0UT0rv+*VALU2 

R4*SELCH2+SVAUJ1 

R8.NEXTCYL 

R9.NEXTHEA0 

RIOtNEXTSECT 

R7.DISKTYP2 

R7.DISKTYPE 

R7tVERlFLAG 



FLOPPY OUTPUT OEViCE? 

NO, HAS TO BE A DISK 

CURRENT OUTPUT DRIVE POSITION 

COMMAND MODEL FOR OUTPUT DRIVE 

BRANCH IF VERIFY COMMAND 
WRITE 128.256 OR 102* 
R6= NUMBER OF BYTES WRITTEN 
CHANGE TO NO OF LRN'S 
INCREMENT WORKING LRN NUMBER 



NUMBER OF BYTES MINUS 1 

NEW START ADDRESS 

NEW END ADDRESS 

READ LRNS INTO CHECK BUFFER 

R6= NUMBER OF BYTES WRITTEN 

CHANGE TO NO OF LRN'S 

INCREMENT WORKING LRN NUMBER 

NO. OF BYTES THIS TIMp 
SET RETURN POINTER 
COMPARE INBUFICHKBUF 
GO SEE IF FINISHED 

"O.S. IMAGE VERIFY ERROR" 



"VERIFY ERROR" 

RETURN FROM CONHSG ON R15 



BYTE COUNT 



READ INTO CHECKBUF 



CONTROLLER ADDRESS 

SELCH AOORESS 

CURRENT POSITION ON OUTPUT DISK 



SELECT OUTPUT DISK TYPE 



COMMON ma CROSS GENERATOR 06-252R04H96A13 
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TRANSFER ACTUAL PROGRAM 



27DE 


4330 


2806 


27E2 


0B6S 




27E4 


C850 


3C5C 


27E8 


0A65 




27EA 


41F0 


?F38 


27EE 


CA50 


0100 


27F2 


0556 




27F4 


2085 




27F6 


4080 


1A1A 


27FA 


4090 


1A1C 


27FE 


40A0 


1A1E 


2802 


4300 


2772 


2806 


41F0 


?F3C 


280A 


CA50 


oioo 


260E 


0556 




2810 


2085 




2812 


4080 


1A1A 


2816 


4090 


1A1C 


281A 


40A0 


1A1E 


281E 


4850 


1B7E 


2822 


0360 


1386 


2826 


0866 




2828 


2132 




282A 


2461 




282C 


0656 




282E 


4050 


1B7E 


2832 


4220 


2670 


2836 


2116 




2838 


0360 


1862 


263C 


2761 




283E 


4310 


2682 



3033 




BZ 


MRITE296 


3034 




SAR 


R6.R5 


3035 




LOAI 


R5.CHKBUF 


3036 




AAR 


R6.R5 


3037 


VERIF256 


BAL 


RIStRNXTSECT 


3038 




AHI 


R5.256 


3039 




CLAR 


R5»R6 


3040 




BLS 


VERIF25S 


3041 




STH 


RBtNEXTCYL 


3042 




STH 


H9.NEXTHEAD 


3043 




STH 


R10.NEXTSECT 


3044 




B 


VERlFYOl 


3045 


* 






3046 


WRITE256 


BAL 


R15tWNXTSECT 


3047 




AHI 


R5.256 


3048 




CLAR 


R5.R6 


3049 




BLS 


WRITE256 


3050 




STH 


R8.NEXTCYL 


3051 




STH 


R9.NEXTHEA0 


3U52 




STH 


R10.NEXTSECT 


3053 


* 






3054 


* 






3055 


OUTTEST 


LH 


R5fREC0R0S 


3056 




LB 


RS.rROSsiZE 


3057 




LOAR 


R6.R6 


3058 




BNZS 


OUTTESTl 


3059 




LIS 


R6.1 


3060 


OUTTEST1 


SAR 


R5»R6 


3061 




STH 


R5, RECORDS 


3062 




BP 


DUPEPROS 


3063 




BUS 


FINISH 


3064 




LB 


RfitLEFTOVER 


3065 




SIS 


R6.1 


3066 


* 






3067 




BNM 


6ETS0ME 


3066 


• 







SKIP IF NOT VERIFY 
BYTE COUNT MINUS 1 
NEW START ADDRESS 
NEW END ADDRESS 
READ A SECTOR 
BUMP START ADDRESS 

READ ANOTHER SECTOR 
SAVE CURRENT POSITION 



60 VERIFY 

WRITE A SECTOR 
BUMP START ADDRESS 

WRITE ANOTHER SECTOR 
SAVE CURRENT POSITION 



NO. OF 256 BYTE RECORDS TO DO 
NO. Or RECORDS BOfcjE THIS Tint 
LESS THAN 256 BYTES DONE? 
SKIP IF NO 

IF YES. FORCE DECREMENT OF 1 
DECREMENT TALLY BY NUMBER DONE 

MORE RECORDS TO DO IF PLUS 

DONE IF MINUS 

IF ZEROt CHECK LEFTOVER 

R6 ADJUST FOR FINAL ADDRESS 

IF LEFTOVER = ZERO* NO MORE BYTES 

60 FOR LAST RECORD 

WHICH HAS LESS THAN 256 BYTES 



COMMON MHO CROSS GENERATOR 06-252R04M96A13 
PROGRAM WRAP-UP? DIRECTORY UPOATE 



2842 


4860 


1A66 


2846 


2338 




2848 


486q 


1AFC 


284C 


2762 




284E 


"♦060 


lA66 


2852 


4300 


28FE 


2856 


4860 


1A18 


2854 


i»230 


1F7C 


285E 


4860 


1A50 


2862 


2761 




2864 


4330 


103C 


2868 


2761 




286A 


4230 


28C0 


286E 


41E0 


2D48 


2872 


1*860 


1AFC 


2876 


4065 


385C 


287ft 


1*860 


1888 


287E 


1*065 


385E 


28B2 


064A 




2884 


C550 


0070 


2888 


238c 




288A 


2460 




288C 


4065 


3860 


2890 


1*065 


3862 


2894 


<*1C0 


2ABC 


2898 


41E0 


2000 


289C 


4300 


1F7C 


28A0 


ot^o 


1A12 


28A4 


4330 


2A60 


28A8 


i*1C0 


2ABC 


28AC 


41EQ 


2000 


28B0 


2641 




2882 


uico 


2A8C 


28B6 


41E0 


2CA0 


288A 


2 <*50 




26BC 


4300 


288A 


28C0 


41FQ 


2ECC 


28C4 


0866 




28C6 


i*230 


2A60 


28CA 


4860 


375C 


28CE 


1*065 


385c 


2802 


0360 


375E 


2806 


0265 


385E 


28DA 


4860 


XA74 


280E 


4066 


3860 


28E2 


4860 


1A76 


28E6 


0265 


3863 


28EA 


4860 


1A78 


<* actr 


t\riJL C 


*fl£t 


tott 


UCWJ 


o«wt 


26F2 


41C0 


2AC6 


28F6 


41E0 


200A 



3070 


FINISH LH 


R6.0SFLSS 


3071 


B2 


FINISH. 


3072 


LH 


R6.SEQNUM 


3073 


SIS 


R6.2 


3074 


STH 


R6.0SFLAG 


3075 


B 


OSOISKX 


3076 


FINISH. LH 


R6.VERIFLA6 


3077 


BNZ 


FINDNEXT 


3078 


LH 


R6.0UTFLAG 


3079 


SIS 


R6.1 


3080 


BE 


MAGFIN 


3081 


SIS 


R6.1 


3082 


BNZ 


DISKFIN 


3083 


BAL 


R14.RDIRECT 


3084 


LH 


R6tSE0NUM 


3085 


STH 


R6.INBUFIR5) 


3086 


LH 


R6.P0BSTART 


3087 


STH 


R6,INBUF+2(R5) 


3068 


LOAR 


R4.R10 


3089 


CLHI 


R5.125 


3090 


BNLS 


FINISH. 1 


3091 


FINISH. 2 LIS 


R6.0 


3092 


STH 


R6.INBUF+4(R5) 


3093 


STH 


R6.INBUF+6<R5> 


3094 


BAL 


R12»SULH56 


3095 


BAL 


R14«URLRN 


3096 


B 


FINONEXT 


3097 


FINISH. 1 CLB 


R4.EN00TR 


3098 


BE 


OIRERR 


3U99 


BAL 


R12.SULH56 


3100 


BAL 


R14»VRLRN 


3101 


AIS 


R4.1 


3102 


BAL 


R12.SULH56 


3X03 


BAL 


R14.ROLRN 


3104 


LIS 


R5.0 


3105 


B 


FINISH. 2 


3106 


* 




3107 


* 




3108 


OISKFIN BAL 


.R15»DIRSERCH 


3109 


LOAR 


R6.R6 


3110 


BNZ 


OIRERR 


3111 


LH 


R6.P0B 


3112 


STH 


R6.IN8UFCR5) 


3113 


LB 


R6.PD8+2 


3114 


STB 


R6,IN8UF+2(R5) 


3115 


LH 


R6.DIR0AT 


3116 


STH 


R6.INB0F>4(R5» 


3117 


LH 


R6.0IRD4T+2 


3118 


STB 


R6.INBUF+7CR5) 


3119 


LH 


R6.0IR0AT+4 


11«. 


*TO 


Bf TUOJirj.£fDCi 


v*cy 


ti ■ a 




3121 


BAL 


R12.SULH56.2 


3122 


BAL 


R14«WRITSECT 
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SKIP IF NOT OS 

CLEAR OS FLAG AFTER PROGRAM 002 

GO DO DIRECTORY IF LAST O.S. 
VERIFY? 

go for next program if yes 
look at output device 

HAG TAPE? 

yes. write file marks 

floppy? 

finish up on disk output 

reao the directory 

get this one's sequence number 

put it in the oirectory 

starting pob for this program 

into the oirectory too 

block pointer 

room for eov markers in this block? 

skip if no 

stuff eov markers 



WRITE DIRECTORY BLOCK 
60 FOR NEXT PROGRAM 
AT MAKIHUH7 
ERROR IF YES 

WRITE THIS oLOCK 
INCREMENT TO NEXT 

READ NEXT OIRECTORY BLOCK 

STUFF EOV MARKERS 

LOOK IN OIRECTORY 
DIRECTORY ERROR 
COPY SEOUENCE NUMBER 

COPY CYLINDER NUMBER 
COPY HEAD NUMBER 

rnnv err tab liiiMom 

REWRITE DIRECTORY SECTOR 



COMMON HMD CROSS GENERATOR 06-252R0*N96Al3 
PROGRAM WRAP-UP. DIRECTORY UPDATE 
28FA *300 1F7C 



28FE 


*1F0 


?FA8 


2902 


2711 




290* 


2382 




r>» t\* 






C 7VD 




2908 


*87o 


1AFC 


290C 


C*70 


0002 


2910 


0A77 




2912 


*007 


1A82 


2916 


*017 


1A8* 


291A 


0877 




291C 


*33o 


1F7C 


2920 


*1C0 


2AC6 


292* 


*lCo 


2AD0 


2928 


C860 


*F53 


292C 


C870 


3136 


2930 


*060 


3860 


293* 


*070 


3862 


2938 


C87o 


3332 


293C 


*060 


3890 


29*0 


*07o 


3892 


29** 


*860 


1&D0 


29*8 


*870 


16D2 


29*C 


*0bQ 


386* 


2950 


*07o 


3866 


295* 


*060 


389* 


2958 


*070 


3896 


295C 


C860 


*D*D 


2960 


C87o 


**20 


296* 


*060 


38C0 


2968 


*070 


38C2 


296C 


C870 


2020 


2970 


*070 


38C* 


297* 


*07o 


38C6 


2978 


C860 


3131 


297C 


*060 


3868 


2980 


D260 


386A 


298* 


*060 


3898 


2988 


D260 


389A 


298C 


C860 


***1 


2990 


C870 


005* 


299* 


*060 


38C8 


2998 


D270 


38CA 


299C 


C870 


0010 


29A0 


D270 


388* 


29A* 


0270 


388* 


29A8 


D270 


38E* 


29AC 


2571 




29AE 


*07o 


387* 


29B2 


*070 


38A* 



3123 


B 


FINDNEXT 


3125 


OSDISKX BAL 


R15»F0RMLBA 


3126 


SIS 


Rl,l 


3127 


BNCS 


OSDlSKXl 


3128 


SIS 


KO,l 


3129 


0S0ISKX1 LH 


R7.SEQNUH 


3130 


MMI 


R7,2 


3131 


AAR 


R7.R7 


3132 


STH 


R0.FINALLBAIR7) 


3133 


STH 


R1.FINALLBA»2<R7) 


313* 


LDAR 


R7.R7 


3135 


BZ 


FINDNEXT 


3136 


BAL 


R12.SULH56.2 


3137 


BAL 


R12.2EROBUFF 


3138 


LHI 


R6.C«0S» 


3139 


LHI 


R7,C«16» 


31*0 


STH 


R6,DIRECT1*FNAME 


31*1 


STH 


R7.D1RECTH-FNAME+2 


31*2 


LHI 


R7,C'32« 


31*3 


STH 


R6 1 DIREPT2+FNAMF 


31** 


STH 


R7.0IRECT2+FNAME+2 


31*5 


LH 


R6,0SID+$VALU1 


31*6 


LH 


R7.0SI0+SVALU2 


31*7 


STH 


R6 . DIRECT1+FNAME+* 


31*8 


STH 


R7.DIRECT1+FNAHE+6 


31*9 


STH 


R6.DIRECT2+FNAME+* 


3150 


STH 


R7.0IRECT2»FNAME*6 


3151 


LHI 


R6,C«MM» 


3152 


LHI 


R7,CO » 


3153 


STH 


R6.DIRECT3+FNAME 


315* 


STH 


R7.0IRECT3+FNAME+2 


3155 


LHI 


R7.X»2020» 


3156 


STH 


R7.DIRECT3*FNAME+* 


3157 


STH 


R7.0IRECT3+FNAME+6 


3158 


LHI 


R6,C»11» 


3159 


STH 


R6.DIRECT1+EXT 


3160 


STB 


R6.0IRECT1+EXT+2 


3161 


STH 


R6.DIRECT2+EXT 


3162 


STB 


R6»0lRECT2+EXT+2 


3163 


LHI 


R6.C»DAt 


316* 


LHI 


R7.C'T» 


3165 


STH 


H6.0IRECT3+EXT 


3166 


ST3 


R7,DIRECT3*EXT*2 


3167 


LHI 


R7.X»10» 


3166 


STB 


R7.0IRECT1+ATTR 


3169 


STB 


R7tDIRECT2+ATTR 


3170 


STB 


R7.DIRECT3+ATTR 


3171 


LCS 


R7tl 


3172 


STH 


R7.0IRECT1*KEYS 


3173 


STH 


R7.DIRECT2+KEYS 
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60 FOR NEXT PROGRAM 



FORM FINAL LBA FOR THtS ONE 
DECREMENT BY 1 



SEQUENCE 001 OR 002 

R7 s o OR * 

save for directory 

LAST ONE? 

NO, 00 ANOTHER ONE 

PRESET TO ZERO 

FIRST ENTRY s »0S16MD| 2" 

SECOND ENTRY = "GS32HBL2" 
GET OPTIONAL CHARACTERS 
STORE "MDL2" 



THIRD ENTRY = "HMD " 
FILL OUT WITH SPACES 

EXTENSION HI FOR FIRST ENTRY 
EXTENSION 111 FOR SECOND ENTRY 

EXTENSION OAT FOR THIRD EnTRY 
EACH ENTRY HAS ATTRIBUTE »10» 

EACH HAS PROTECTION KEYS «FFFF» 



COMMON MMO CROSS GENERATOR 06-252R04H96A13 
PROGRAM URAP-UP, DIRECTORY UPOATE 
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29B6 


4070 


3804 


3174 


STH 


R7.DIRECT3+KEYS 


29BA 


4860 


1A7A 


3175 


LH 


R6.STARTLBA 


29BE 


4670 


1A7C 


3176 


LH 


R7.STARTLBA+2 


29C2 


4060 


386C 


3177 


STH 


R6.DIRECT1*FLBA 


29C6 


4070 


386E 


3178 


STH 


R7.0IRECT1+FLBA+2 


29C6 


4860 


1A82 


3179 


LH 


R6.FINALLBA 


29CE 


4870 


1A84 


3180 


LH 


R7.FINALLBA+2 


2902 


4060 


3870 


3181 


STH 


R6.0IRECT1+LLBA 


2906 


4070 


3872 


3182 


STH 


R7.DIRECT1+LL8A*2 


2904 


4860 


1A7E 


3183 


LH 


R6,STARTLBA«-4 


290E 


4870 


1480 


3184 


LH 


R7.STARTLBA*6 


29E2 


4060 


389C 


3185 


STH 


R6.0IRECT2+FLBA 


29E6 


4070 


389E 


3186 


STH 


R7,0IRECT2+FLBA*2 


29EA 


4860 


1AB6 


3187 


LH 


R6iFINALLBA+4 


29EE 


4870 


1A88 


3188 


LH 


R7.FINALLBA+6 


29F2 


4060 


3840 


3189 


STH 


R6.0IRECT2+LLBA 


29F6 


4070 


38A2 


3190 


STH 


R7.DIRECT2H.LBA+2 


29F4 


41F0 


2F48 


3191 


BAL 


R15«F0R»M_BA 


29FE 


4000 


38CC 


3192 


STH 


R0,0IRECT3+FLBA 


2A02 


4010 


38CE 


3193 


STH 


R1»DIRECT3+FLBA*2 


2606 


0380 


1414 


3194 


LB 


R8.0IRSTART 


24QA 


2"»90 




3195 
3196 


LIS 

* 


R9,0 


2A0C 


24A0 




3197 


LIS 


RIOtO 


2A0E 


41F0 


2FA8 


3198 


BAL 


R15«FORHLBA 


2A12 


CA10 


2EE0 


3199 


AHI 


Rl. 12000 


2A16 


2362 




3200 


BNCS 


OSOISKX? 


2418 


2601 




3201 


AIS 


RO.l 


2414 


4000 


3800 


3202 


0RDISKX2 STH 


R0.OIRECT3+LLBA 


2A1E 


4010 


3802 


3203 


STH 


R1.0IRECT3+LLBA+2 


2422 


4860 


1448 


3204 


LH 


R6.0S0IR 


2A26 


4890 


1A4A 


3205 


LH 


R9.0S0IR+2 


2A2A 


48A0 


1A4C 


3206 


LH 


R10«OSOIR+4 


2A2E 


41F0 


2F08 


3207 


BAL 


R15»0ISKSET 


2A32 


4230 


1F3C 


32ns 


BNE 


OIRECTER 


2A36 


41F0 


OFBO 


3209 


BAL 


R15«CRi_F 


2A34 


4300 


1B92 


3210 


3 


RUN. 0000 



FIRST LOGICAL BLOCK ADDRESS 
FOR FIRST OIRECTORY ENTRY 



LAST LOGICAL BLOCK AOORESS 
FOR FIRST ENTRY 



FIRST LOGICAL BLOCK AOORESS 
FOR SECOND ENTRY 



LAST LOGICAL BlOCk ADDRESS 

FOR SECOND ENTRY 

TRANSLATE R8.R9.R10 To LBA 

FIRST LOGICAL BLOCK ADDRESS 

FOR THE LIBRARY ITSELF 

POINT TO CYLINDER 8 

HEAD 

HATCH THIS AREA ! ! I ! I ! ! I I I I I I I I ! 

SECTOR 

CHANGE TO LBA 

12,000 SECTORS TOTAL 



LAST LOGICAL BLOCK ADDRESS 
FOR THE LIBRARY 
CYLINDER, HEAD. SECTOR 
VHERE THE DIRECTORY GOES 

WRITE THE DIRECTORY 
VERIFY ERROR 

CARRIAGE RETURN, LINE FEED 
RESET INPUT AND DO LlBRART 



COMMON HMD CROSS GENERATOR 06-252R04H9&A13 
AOVISORT AND ERROR MESSAGE ROUTINES 



2A3E 


moo 


2B12 


2A42 


C850 


3320 


2A46 


4300 


1C50 


2A4A 


4100 


2B12 


2A4E 


4020 


154A 


2A52 


C850 


32F8 


2A56 


D440 


1»13 


2ASA 


2163 




2A5C 


C850 


3*C7 


2A60 


4lFo 


12BC 


2A64 


mFo 


0F02 


2A68 


mto 


0E30 


2A6C 


4300 


OAAA 


2A70 


41D0 


2B12 


2A74 


C850 


3330 


2A78 


4300 


1C50 


2A7C 


C850 


S374 


2A80 


4300 


1C50 


2A84 


4000 


154A 


2A88 


41F0 


12BC 


2A8C 


41F0 


OFBA 


2S90 


34B9 




2A92 


41E.0 


OEOC 


2A96 


4300 


OAAA 


2A9A 


C850 


3499 


2A9E 


4300 


1C50 


2AA2 


4000 


154A 


2AA6 


0210 


154C 


24AA 


4lFc 


12BC 


2AAE 


41F0 


OFBA 


2AB2 


34C7 




2AB4 


41E0 


0E30 


2AB8 


4300 


OAAA 



3212 


ENDOVOL 


BAL 


R13.ST0P 


3213 


endovoli 


LDAJ 


R5.E0VMSG2 


3214 




3 


C0NNSG1 


3215 


WBERR1 


BAL 


R13»ST0P 


3216 




STH 


R2tERR0EV 


3217 




LOAI 


R5.0IRER 


3218 




CLB 


R4.STSAV 


3219 




BL 


OIRERR 


3220 




LOAI 


R5.UNREC0V 


3221 


DIRERR 


BAL 


R15.SETKB 


3222 




BAL 


R15«PRINT 


3223 


OtRERRl 


BAL 


R14.ERR0S1 


3224 




8 


OPTIN 


3225 


RDIRERR1 


BAL 


R13tST0P 


3226 




LOAI 


R5.RDEHSG 


3227 




8 


C0NHSG1 


3228 


* 






3229 


EOD 


LOAI 


R5.E0DHSG 


3230 




B 


C0NMSG1 


3231 


* 






3232 


DU 


STH 


RO.ERROEV 


3233 




B*L 


R15.SETKB 


3234 




BAL 


R15.»PRTNT 


3235 




QAC 


DEVU*IA 


3236 




BAL 


R14tERRr>l 


3237 




B 


OPTIN 


3238 


* 






3239 


WPROT 


LOAI 


R5.WPR0THSG 


3240 




3 


C0NMSG1 


3241 


WTERXY 


STH 


RO.ERROEV 


3242 




STB 


Rl.ERRSTA 


3243 




BAL 


R15.SETKB 


3244 




BAL 


R15»*PRINT 


3245 




DAC 


UNRECOV 


3246 




BAL 


Rl4«ERRnSl 


3247 




9 


OPTIN 
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FLOPPY STOP 
"END OF VOLUME" 



FLOPPY STOP 



WHERE HERE WE? 
OIRECTORY ERROR 



OEV 00 STA SS 

FLOPPY STOP 
"DIRECTORY READ ERROR" 



DIRECTORY FULL 



STORE DEVICE 

DIRECT PRINTOUT TO CONSOLE 

•DEVICE UNAVAILABLE' 

•DEVsDD' 



"DEVICE WRITE PROTECTED" 



"UNRECOVERABLE ERROR" 
DEV DOO STA SS 



COMMON HHO CROSS GENERATOR 06-252R04H96A1S 
LEVEL 12 SUBROUTINES 
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3249 


* S U B R U 


TINE S U L 


H 5 * 








3250 


* 






2ABC 


C850 


385C 


3251 


SULH56 LDAI 


R5.INBUP 


START ADDRESS 


2AC0 


C865 


0U7F 


3252 


LHI 


R6.127<R5> 


END ADDRESS 


2AC4 


030C 




3253 


BR 


R12 










3255 


* S U B R U 


TINE S U L 


H 5 6 . 2 








3256 


* 






2AC6 


C650 


385C 


3257 


SULH56.2 LOAI 


R5.INBUF 


START ADDRESS 


2ACA 


C865 


OOFF 


3258 


LHI 


R6,255(P5) 


END ADDRESS 


2ACE 


050C 




3259 


BR 


R12 


RETURN 



3261 *SU8 ROUTINE ZEROrUFF 









3262 


* 








2AD0 


2400 




3263 


ZEROBUFF 


LIS 


RO.O 


Clear retry count 


2AD2 


4050 


1B84 


3264 




STH 


R5.R5SAVE 


SAVE START ADORESS 


2AD6 


4005 


0000 


3265 


ZER0BUF1 


STH 


R0.01R5I 


CLEAR THE INPUT BUFFER FIRST 


2ADA 


2652 




3266 




AIS 


R5.2 




2ADC 


0556 




3267 




CLAR 


R5.R6 




2A0E 


208i» 




3266 




BLS 


ZEROBUF1 




2AE0 


4850 


1B84 


3269 




LH 


R5.R5SAVE 




2AE4 


030C 




3270 




BR 


R12 










3272 


• SUB 


R U 


TINE HOW* 


ANY 








3273 


* 








2AE6 


0876 




3274 


HOWNANY 


LDAR 


R7,R6 


INBUF END ADORESS 


2AE8 


CB70 


385C 


3275 




SHI 


R7,INBUF 


MINUS START ADDRESS 


2AEC 


2671 




3276 




AIS 


R7.1 


PLUS 1 


2AEE 


4070 


1B86 


3277 




STH 


R7,PR06SIZE 


ACTUAL COUNT 


2AF2 


4870 


1*50 


3278 




LH 


R7.0UTFLA6 


IF OUTPUT DEVICE IS A HAS TAPE 


2AF6 


2771 




3279. 




SIS 


R7.1 


USE THE ACTUAL BYTE COUNT 


2AF8 


033C 




3260 




BZR 


R12 




2AFA 


487o 


1B86 


3281 




LH 


R7.PR0GSIZE 


OTHERWISE, ROUND UP 


2AFE 


2771 




3262 




SIS 


R7,l 


TO NEXT MULTIPLE OF 126 


2B00 


CA70 


0080 


3263 




AH I 


R7,X»60« 




2B04 


C470 


FF80 


3284 




NHI 


R7»X»FF80' 




2B08 


4070 


1B86 


3285 




STH 


R7.PR0SSIZE 


ROUNDEO TO MODULO 126 


2B0C 


030C 




3286 




BR 


R12 





COMMON HMD CROSS GENERATOR 
LEVEL 13 SUBROUTINES 



06-252RQ<*H96A13 



PAGE 69 11:01(58 08/31/81 



2B0E 
2610 



9021 
022D 



2B12 


2417 




2B14 


4610 


1A24 


2R18 


9E2J 




?B1A 


9021 




2B1C 


2221 




2B1E 


0300 





2R20 


4870 


1A68 


2B24 


DE20 


1A35 


2B28 


9031 






i**o« 




£OCM 


CCfc.1 




2R2C 


C570 


r»002 


2830 


233C 




?B32 


9829 




?B34 


OE20 


1A37 


2B38 


9031 




2B3A 


2221 




2R3C 


9828 




2B3E 


OE20 


1A36 


2B"*2 


9D31 




2B44 


2221 




2B46 


030D 




2B48 


9628 




?B4A 


030C 





2B4C 


9D31 


2B4E 


2221 


2960 


0802 


2B52 


9021 


?B54 


<f210 2A84 


2B58 


2083 


2B5A 


030D 



3288 


* S U B 


R U 


TINE F 


3289 


* 






3290 


FSOIOLE 


SSR 


R2.R1 


3291 




BTCR 


2.R13 


3293 


* S U B 


R U 


TINE S 


3294 


* 






3295 


STOP 


LIS 


Rlt7 


3296 




OH 


Rl.FHDCMO 


3297 




OCR 


R2.R1 


3298 




SSR 


R2.R1 


3299 




BF8S 


2,1 


3300 




BR 


R13 


3302 


* S U B 


R U 


TINE 1 


3303 


* 






3304 


FILESET 


LH 


R7.DISKTYP! 


3305 




OC 


R2.DRESFT 


3306 




SSR 


K3.R1 


* *#*^ 




ntTnw* 


o « 


-'-'u r 




or z>o 


ft » i 


3308 




CLHI 


R7,2 


33P9 




BE 


FlLESETl 


3310 




WHR 


R2,R9 


3311 




OC 


R2.SETHFAO 


3312 




SSR 


R3.R1 


3313 




BFBS 


2.1 


3314 




WHR 


R2.R8 


3315 




OC 


R2.SETCYL 


33ifc 




SSR 


R3.R1 


3317 




BFBS 


2.1 


3318 




BR 


R13 


3319 


FtLESETI 


WHR 


R2.R8 


3320 




BR 


R13 


3322 


* SUB 


R L 


! T I N E 


3323 


* 






3324 


DISKWAIT 


SSR 


R3.R1 


3325 




BFBS 


2.1 


3326 




LOAR 


R0.R2 


3327 


SENSED 


SSR 


R2.R1 


33?8 




BTC 


l.DU 


3329 




BTCS 


8. SENSED 


3330 




BR 


R13 



F N I L E 



SENSE STATUS 
EXIT IF IDLE 



ISSUE STOP COMMAND 

WAIT FOR IDLE 
RETURN 



FILESET 



RESET SATED ATTENTION 
WAIT FOR CONTROLLER IDLE 



10 MB 
'HEAD' 



•CYLINDER' 



SEND CYLINOER 



DISKWAIT 



IDLE7 

RO GETS ERROR DEVICE NUMBER 

DEVICE UNAVAILABLE 
LOOP ON BUSY 



3332 * SUBROUTINE C N T I D L E 



COMMON HMO CROSS GENERATOR 06-252R04M96A13 
LEVEL 13 SUBROUTINES 



2P5C 9031 
2B5E 222l 
2R60 U30D 



2B62 

2R64 
2R68 



2471 

4070 1A52 
2304 



286A 


2470 




2B6C 


4070 


1*52 


2B70 


24U5 




2B72 


4000 


1*56 


2376 


4050 


1B64 


2B7A 


C500 


1088 


2B7E 


2165 




2B80 


C805 


OOFF 


2B84 


0506 




2866 


2182 




2B88 


0806 




2B8A 


9D2l 




2B8C 


C310 


0010 


2B90 


2233 




2R92 


0844 




2B94 


4230 


2BCA 


2998 


4870 


1A52 


2B9C 


4230 


2BFA 


2BA0 


DE20 


1A2E 


2BA4 


9021 




2BA6 


2081 




2BA6 


0B25 


oooo 


2BAC 


2651 




2BAE 


0505 




2BB0 


2266 




2BB2 


9021 




2BB4 


C310 


0010 


28B8 


2233 




29BA 


C310 


00C1 


2BBE 


4230 


2C1C 


2BC2 


0565 




2RC4 


4380 


2B76 


2BC8 


030O 




2BCA 


0E40 


1A30 


2BCE 


9645 




2800 


9640 





3333 


* 






3334 


CONTIDLE 


SSR 


R3.R1 


3335 




BFBS 


2,1 


3336 




BR 


R13 


3336 


* SUB 


R U 


TINE U 1 


3339 


* 






3340 


URlTEMAG 


LIS 


R7,l 


3341 




STH 


R7.0RWFLAG 


3342 




BS 


HAGINOUT 


3344 


* S U 8 


R U 


TINE RE 


3345 


* 






3346 


REAOMA<i 


LIS 


R7,0 


3347 




STH 


R7.DRWFLAG 


33i;b 


MAGINOUT 


LIS 


R0.5 


3349 




STH 


RO, RETRY 


3350 


MAGI01 


STH 


R5.R5SAVE 


3351 




CLHI 


R13»INITDISK 


3352 




BLS 


HAGlOlA 


3353 




LHI 


R0,255(R5I 


3354 




CLAR 


R0.R6 


3355 




BLS 


HA6I02 


3356 


MAGI01A 


LOAR 


R0.R6 


3357 


MAGI02 


SSR 


R2.RI 


3358 




THI 


Rl.X'lO' 


3359 




BZS 


MAGI02 


3360 




LOAR 


R4,R4 


3361 




BNZ 


MAGI05 


3362 




LH 


R7.DRWFLAG 


3363 




3N2 


HAGWRITl 


3364 




OC 


R2,HTRE«D 


3365 


RFA0HAG1 


SSR 


R2.R1 


3366 




BTBS 


6.1 


3367 




RO 


R2.0IR5I 


3368 




AIS 


RS,1 


3369 




CLAR 


R0,R5 


3370 




BNL 


READMAGt 


3371 


HAGI04 


SSR 


R2,R1 


3372 




THI 


Rl,X'10t 


3373 




BZS 


MAGI04 


3374 




THI 


Rl.X'Clt 


3375 




BNZ 


MTERR 


3376 




CLAR 


R6.R5 


3377 




BNL 


HAGlOl 


3378 




BR 


R13 


3379 


MAG105 


OC 


R4, STOPS 


3360 




WHR 


R4.R5 


3381 




WHR 


R4iR0 
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IDLE 



U R I T E M A G 



II A 6 



CLEAR RETRY COUNT 

SAVE RECORD START ADDRESS 

IF OOING MAG TAPE BOOTS' 

SKIP RECORD SIZE CHECKING 

ELSE, MAX RECORD SIZE IS 256 BYTES 

COMPARE TO ACTUAL END AOORESS 

USE START + 255 IF LESS THAN ACTUAL 

ELSE USE ACTUAL END AoDRESS 

WAIT FOR NO NOTION BEFORE 

READING OR WRITING 

SELCH? 
YES 



ISSUE READ COMMAND 
LOOP ON BUSY 

LOOP IF NOT DONE 



WAIT FOR NO MOTION 
ERROR? 

DONE? 

RETURN 

STOP SELCH 

OUTPUT START ADDRESS 

OUTPUT END ADDRESS 



C0I1H0N HMD CROSS GENERATOR 06-252R04K96A13 
LEVEL 13 SUBROUTINES 



2RD2 


4870 


1A52 


2906 


•♦230 


2C10 


2BDA 


OE20 


1A2E 


29DE 


OE40 


1A3C 


28E2 


9D41 




2BE4 


2081 




28E6 


DE4Q 


1A30 


2BEA 


9941 




23EC 


0501 




2BEE 


4230 


2C1C 


2BF2 


C851 


0001 


23F6 


4300 


2BB2 


2BFA 


DE20 


1A41 


2BFE 


9D21 




2C0O 


2081 




2C02 


DA25 


nooo 


2C06 


2651 




2C08 


0505 




2C0A 


2266 




2C0C 


4300 


2BB2 


2Ciu 


DE20 


i«4l 


2C14 


OE4 


1A33 


2C18 


4300 


2BE2 


2C1C 


9D21 




2C1E 


C310 


noio 


2C22 


2233 




2C24 


9021 




2C26 


C310 


0040 


2C2A 


4230 


2A42 


2C2E 


0802 




2C30 


4830 


1A56 


2C34 


2731 




2C36 


4030 


1A36 


?C3A 


4210 


2AA2 


2C3E 


DE20 


1A3F 


2C42 


9021 




2C44 


C310 


0010 


2C48 


2233 




2C4A 


4850 


1B84 


2C4E 


430Q 


2B76 



2C52 2440 
2C54 O303 0000 
2C58 C500 0041 



3382 




LH 


R7fORMFLAG 


3383 




BNZ 


MAGWRIT2 


3384 




OC 


R2.MTREA0 


3385 




OC 


R4iSREAD 


3386 


« 






3387 


MAGI06 


SSR 


R4.R1 


3388 




BTBS 


8,1 


3389 




OC 


R4. STOPS 


3390 




RHR 


R4.R1 


3391 




CLAR 


ROtRl 


3392 




BNE 


MTERR 


3393 




LHI 


R5.KR1) 


3394 




B 


MAGI04 


3395 


* 






3396 


HaGURITI 


OC 


R2,HTWRTTE 


3397 


WRITMAG1 


SSR 


R2.R1 


3398 




BTBS 


e.i 


3399 




WD 


R2tO(R5) 


3400 




AIS 


R5.1 


3401 




CLAR 


RO.RS 


34n2 




BNL 


WRITMAG1 


34n3 




B 


HAGI04 


3404 


* 






3405 


nAGWRI72 


OC 


R2«??TWRiTE 


34Q6 




OC 


R4.SWRITE 


3407 




B 


MAGI06 


3408 


* 






3409 


MTERR 


SSR 


R2.R1 


3410 




THI 


*1.X'10« 


34U 




BIS 


liTERR 


3H2 




SSR 


R2.R1 


3413 




THI 


R1.X«40« 


3414 




BNZ 


ENDOVOL1 


3415 


* 






341$ 


HTERR1 


LDAR 


R0.R2 


34i7 




LH 


R3.RETRY 


3418 




SIS 


R3»l 


3419 




STH 


R3tRETRY 


3420 




bh 


HTERXY 


34gi 




OC 


R2.BKSPRCRO 


3422 


KTERR2 


SSR 


R2.R1 


3423 




THI 


R1,X'10« 


3424 




BZS 


HTERR2 


34 2 5 




LH 


R5.R5SAVE 


34?6 




B 


MAG101 


3423 


* S U B 


R U 


TINE P 


34g9 


* 






3430 


PACK 


US 


R4,0 


3431 


PACK. 001 


LB 


R0.OIR3) 


3*32 




CLHI 


RO.C'A' 
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NAG TAPE READ 
SELCH READ 



A C K 



WAIT ON SELCH BUSY 



UNLOAD FINAL ADDRESS 

COMPARE TO EXPECTED FINAL ADRESS 



NEXT START ADDRESS 



WAIT FOR NO MOTION 

E0F7 

DONE IF YES 

ERROR DEVICE 

DECREMENT RETRY COUNT 

UN-RECOVERABLE ERROR 
BACKSPACE RECORO 
WAIT FOR NO NOTION 



RESTORE START ADDRESS 
TRY AGAIN, THIS RECORD 



COMMON HMD CROSS GENERATOR 06-252R0*«96Al3 
UEVEL 13 SUBROUTINES 



2C5C 


2182 


3*33 


BLS 


PACK. 002 


2C5E 


2707 


3*3* 


SIS 


R0.7 


2C60 


C«00 QOOF 


3*35 


PACK. 002 NHI 


RO,X»F» 


3C6tt 


91»m 


3*36 


SLLS 


R*.* 


?C66 


06*0 


3*37 


OAR 


Rif.RO 


2C68 


2631 


3439 


AIS 


R3.1 


SC6A 


2721 


3*39 


SIS 


R2.1 


2C6C 


203C 


3**Q 


BNZ 


PACK. 001 


2C6E 


0300 


3*n 


BR 


R13 
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SHIFT ACCUMULATOR 
OR IN NEW DI6IT 
INCREMENT INDEX 
DECREMENT COUNT 
LOOP 



COMMON M*r> CROSS GENERATOR 06-252R04H96A13 



LEVEL 14 SUBROUTINES 
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3443 


* S U B 


R U 


TINE R E A 


D C H C K 








34i»4 


* 








2C70 


C570 


0002 


3445 


READCHCK 


CLHI 


R7,2 




2C74 


2330 




3446 




BE 


READCHKt 




2C76 


moo 


2B20 


3447 




8AL 


R13iFlLESET 




2C7A 


9A3A 




34IJ8 




WD* 


R3iR10 


•SECTOR' 


2C7C 


0819 




3449 




LOAR 


R1.R9 


•HEAD' 


2C7E 


911A 




3450 




SLLS 


RltlO 




2C80 


0618 




3451 




OAR 


R1.R8 


'CYLINDER' 


2C82 


9831 




3452 




WHR 


R3.R1 




2C84 


OE3o 


1A34 


3453 


SETUP 


OC 


R3.RCHECK 




2C88 


41D0 


?B5C 


3454 




BAL 


R13.C0NTIDLE 




2C6C 


030E 




3455 




BR 


R14 


RETURN 


2C8E 


41D0 


2B4C 


3456 


READCHK1 


BAL 


R13.DISKWAIT 




2C92 


4100 


2B20 


3457 




BAL 


R13iFILESET 




2C96 


0819 




3458 




LDAR 


R1.R9 


•HEAD' 


2C98 


911S 




3459 




SLLS 


R1.5 




2C9A 


061A 




3460 




OAR 


RlfRlO 


•SECTOR' 


2C9C 


9A31 




3461 




WDR 


R3.R1 




2C9E 


220D 




346? 




B 


SETUP 










3"64 


• sub 


a a ij 


T T N F a o '_ 


P M 








3465 


* 








2CA0 


2400 




34fe6 


RnLRN 


LIS 


ROtO 


CLEAR RETRY COUNTER 


2CA2 


4050 


1B84 


3467 




STH 


R5,R5SAvE 


SAVE START ADDRESS 


?CA6 


4100 


?BOE 


3468 


RDLRN.01 


BAL 


R13.FMDT0LE 


IDLE CHECK 


2CAA 


4810 


1A24 


3469 




LH 


Rl.FHDCMD 




2CAE 


2t.ll 




3470 




AIS 


Rl.l 


FORK READ COMMAND 


2CB0 


9824 




3471 




WHR 


R2,R4 


LRN TO CONTROLLER 


?C32 


9E21 




347? 




OCR 


R2.R1 


ISSUE READ COMMAND 


2CB4 


9023 




3«*73 


RDLRN.02 


SSR 


R2.R3 




2C86 


2081 




3474 




BTBS 


6,1 


WAIT ON BUSY 


2C68 


C870 


007E 


3475 




LHI 


R7.126 


LOOP COUNT 


2CBC 


0925 


0000 


3476 


RnLRNt03 


RH 


R2,0(R5» 


READ HALFUORDS 


?CC0 


2652 




3477 




AIS 


R5,2 


BUMP INDEX 


2CC2 


2772 




3478 




SIS 


K7,2 


OECREMENT COUNT 


?CC4 


2284 




3479 




BNLS 


RDLRN.01 


LOOP THRU 128 BYTES 


2CC6 


0556 




3480 




CLAR 


R5.R6 


□ONE YET? 


?CC8 


208A 




3481 
3482 


* 


9LS 


RDLRN.OS 


LOOP IF NO 


2CCA 


0020 


154C 


3483 




SS 


R2.ERRSTA 




2CCE 


2154 




3484 




BTC 


5.RDLRNE 


READ ERROR 


2CD0 


4100 


2812 


3485 




BAL 


R13«ST0P 




?C04 


030E 




3486 




BR 


P14 


RETURN 


2CD6 


41D0 


2B12 


3487 


ROLRNE 


BAL 


R13»ST0P 




2C0A 


C500 


0005 


3488 




CLHI 


R0.5 


MAX RETRY? 


2CDE 


2386 




3489 




BNLS 


RDLRNEl 


HARD ERROR IF YES 


2CE0 


2601 




3490 




AIS 


RO.l 


ELSE. 8UMP RETRY COUNT 


2CE2 


4850 


1384 


3491 




LH 


R5.R5SAVE 


RESTORE START ADDRESS 


2CE6 


4300 


2CA6 


3492 




e 


ROLRN.Oi 


TRY AGAIN 


2CEA 


4020 


154A 


3493 


R0LRNE1 


STH 


R2.ERRDEV 
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2CEE 


H1F0 


128C 


2CF2 


41F0 


OFBA 


PCF6 


34C7 




2CF8 


41E0 


OE30 


2CFC 


<f300 


OAAA 



2O00 


2400 




2O02 


4050 


1884 


2006 


4100 


?BOE 


2O0A 


2412 




2D0C 


4610 


1A24 


2010 


9824 




2D12 


9E21 




2014 


9023 




2016 


20B1 




2018 


C870 


007E 


201C 


0825 


0000 


2020 


2652 




2D22 


2772 




2024 


2284 




2026 


0556 




2028 


208A 




2D2A 


DO20 


154C 


202E 


2154 




2030 


4100 


?B12 


2034 


030E 




2036 


C500 


0005 


203A 


4380 


?A4A 


203E 


260i 




204 


4850 


1B84 


2044 


4300 


2006 



2048 


2400 




204A 


D3A0 


1A10 


204E 


0340 


1A11 


2052 


4100 


2B0E 


2056 


41C0 


2ABC 


205A 


4890 


1AFC 


205E 


2411 




2060 


4610 


1A24 


2064 


9824 




2066 


9E21 




2D68 


26A1 




206A 


D4A0 


1A13 



3<*94 




BAL 


R15.SETKB 


3495 




BAL 


R15. SPRINT 


3*96 




DAC 


UNRECOV 


3497 




BAL 


R14»ERRnSl 


3498 




B 


OPTIN 


3500 


• SUB 


R U 


TINE W R 


3501 


* 






3502 


urLrn 


LIS 


RO.O 


3503 




STH 


R5.R5SAVE 


3504 


WRLRN.01 


BAL 


R13.FMDI0LE 


3505 




LIS 


R1.2 


3506 




OH 


Rl.FHOCBD 


3507 




UHR 


R2.R4 


3508 




OCR 


R2.R1 


3509 


URLRN. 02 


SSR 


R2,R3 


3510 




BTBS 


8.1 


3511 




LHI 


R7.126 


3512 


URLRN. 03 


UH 


R2.01R5) 


35i3 




AIS 


R5.2 


3514 




SIS 


R7.2 


3515 




BNLS 


URLRN, 03 


3516 


* 






3517 




CLAR 


R5.R6 


3518 




BL 


HRLRN.02 


3519 




ss 


R2.ERRSTA 


3520 




BTC 


5. UBERR 


3521 




BAL 


R13»ST0P 


3522 




BR 


R14 


3523 


UBERR 


CLHI 


R0.5 


35J4 




BNL 


WBCRRl 


3525 




AIS 


RO.l 


3526 




LH 


R5.R5SAVE 


3527 




B 


URLRN. 01 


3529 


* S U B 


R U 


TINE R ! 


3530 


* 






3531 


RQlRECT 


LIS 


RO.O 


3532 




LB 


RIOiSTOTRM 


3533 




LB 


R4.STDIR 


3534 


ROLOOP 


BAL 


R13.FM0IDLE 


3535 




BAL 


R12.SULM56 


3536 




LH 


R9.SEQN1IM 


3537 




LIS 


Rl.l 


3538 




OH 


Rl.FWDCMD 


3539 




WHR 


R2.RH 


3540 




OCR 


R8.R1 


3541 


RDIRECT2 


AIS 


R10.1 


3542 




CLB 


R10.STSAV 



REaD error 

"OeV DDO STA SS" 



clear retry counter 
save start address 
idle check 

form write command 
write lrn to controller 
issue urite command 

uait for not busy 

write to diskette 
bump index 
decrement count 
write 128 bytes 

OOtyE? 

NO, ANOTHER 128 

YES. CHECK STATUS OF XFER 

WRITE ERROR 

NO ERROR. STOP 

RETURN 

WAX RETRY? 

YES. HARD ERROR 

NO. BUMP RETRT COUNT 

RESTORE START ADDRESS 

TRY AGAIN 



I R E C T 



CLEAR RETRY COUNTER 
DIRECTORY START LRN HfNUS 1 
START LRN FOR DIRECTORY 
IDLE CHECK 

CURRENT OUTPUT SEQUENCE NUMBER 

FORM READ COMMAND 
SEND LRN TO CONTROLLER 
ISSUE READ COMMAND 
BUMP CURRENT CRN POINTER 
OUT OF DIRECTORY? 
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LEVEL 14 SUBROUTINES 



2D6E 


4330 


2DC0 


2072 


9023 




207* 


2081 




2076 


D925 


0000 


207A 


2652 




2D7C 


0556 




207E 


2084 




2D80 


9D23 




2082 


4250 


20C0 


2086 


2450 




2088 


2464 




208A 


C870 


007C 


208E 


4835 


385C 


2092 


4210 


2DB8 


2096 


2339 




2098 


0539 




209A 


233C 




2D9C 


C150 


?08E 


2OA0 


41C0 


2ABC 


2DA4 


4300 


?068 


20A8 


2541 




2DAA 


243C 




2CAC 


ii i n« 


?S12 


T J. U(J 


2060 


030E 




2DB2 


4845 


385E 


2DB6 


2205 




?D38 


4100 


2B12 


?0?C 


4300 


3A7C 


2DC0 


C500 


0005 


2QC4 


4380 


?A70 


2DC8 


2601 




2DCA 


41DQ 


2B12 


2DCE 


084A 




2OD0 


27A1 




2002 


4300 


2D52 



2006 


2470 




* 20D8 


2302 




?00A 


2471 




200C 


4070 


1A52 


2DE0 


4100 


?B5C 


20E4 


4100 


J>B20 


20E8 


0E20 


1A39 


2DEC 


41D0 


2B4C 


2OF0 


2415 




2DF2 


4010 


1A56 


20F6 


0815 





3543 




BE 


ROIRERR 


3544 




SSR 


R2.R3 


3545 




BTBS 


8,1 


3546 


ROHL 


RH 


R2,0IR5) 


3547 




AIS 


R5.2 


3546 




CLAR 


R5.R6 


3549 




8LS 


ROHL 


3550 




SSR 


R2.R3 


3551 




BTC 


5, ROIRERR 


3552 




LIS 


R5.0 


3553 




LIS 


R6.* 


3554 




LHI 


R7.124 


3555 


ROIRECT1 


LH 


R3,INBUF(R5> 


3556 




en 


EOOl 


3557 




82 


EOVX 


3558 




CLAR 


R3.R9 


3559 




BE 


RDIRECT* 


3560 




BXLE 


R5.RDIRrcTl 


3561 




BAL 


R12»SULH56 


3562 




6 


R0IRECT2 


3563 


* 






3564 


EOV1 


LCS 


R4.1 


3565 




LIS 


R3,0 


«C<> r 


r*urw 


» A ■ 


0« » t OTAa» 


-'-'OO 


LU » t-« 


C»«(U 


3567 




BR 


R14 


3568 


R0IRECT3 


LH 


R4,IN3UF*2IR5> 


3569 




BS 


EOVEX 


3570 


EoDl 


BAL 


Rl3»STOP 


3571 




B 


E00 


3572 


RDIRERR 


CLMI 


ROtS 


3573 




BNL 


ROIRERR1 


3574 




AIS 


RO.l 


3575 




8AL 


R13.ST0P 


3576 




LDAR 


R4.R10 


3577 




SIS 


R10.1 


3578 




9 


ROLOOP 


3560 


* SUB 


R U 


TINE re 


3581 


* 






3582 


REAOSECT 


LIS 


R7.0 


3583 




B 


SECT 


3584 


* SUB 


R U 


TINE MR 


3585 


HRITSECT 


LIS 


R7.1 


3586 


SECT 


STH 


R7,DRWFLAS 


3587 




BAL 


R13tC0NTIDLE 


3588 




BAL 


R13tFlLFSET 


3589 




OC 


R2.SEEK 


3590 




BAL 


R13»0ISKUAIT 


3591 




LIS 


R1.5 


3592 




STH 


Rl, RETRY 


3593 


SECT1 


LDAR 


R1.R5 



DIRECTORY ERROR IF YES 

BUSY CHECK 
READ HALFUORDS 



LOOP 

READ ERROR 

SET UP BXLE RESISTERS 



LOAO A SEQUENCE NUMBER 

END OF OIRECTORY 

ENO OF VOLUME 

MATCH SEQUENCE NUMBER? 

BRANCH IF YES 

LOOP THRU OIRECTORY 

SO TO NEXT BLOCK 



EOv FLAG 



SET POB POINTER 
EXIT 



MAX RETRY? 

HARD ERROR IF YES 

BUMP RETRY COUNTER 

RESET LRN POINTER 
DECREMENT CURRENT 



A D S E C T 



I T S E c T 



WAIT FOR CONTROLLER 

SET UP FILE 

SEEK 



SET RETRY COUNTER 
START ADDRESS 



I OLE 
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LEVEL It SUBROUTINES 



20F8 


CA10 


OOFF 


2DFC 


OE40 


1A30 


<>eoo 


9845 




2E02 


9841 




2E04 


"♦870 


1A68 


2E08 


C570 


0002 


2E0C 


233A 




2E0E 


0819 




2E10 


9UA 




2E12 


0618 




2E14 


Clio 


7FFF 


2E18 


9A3A 




2E1A 


9831 




2E1C 


9829 




2E1E 


2307 




2F20 


0819 




2E22 


9115 




2E24 


061A 




2E26 


C410 


003F 


2E2A 


9A31 




2E2C 


i*87o 


1A52 


2E30 


2136 




2E52 


DE30 


1A31 


2E56 


OE40 


1A3C 


2E3A 


230A 




2E3C 


9021 




2E3E 


C310 


noflo 


2E42 


4230 


2A9A 


2E46 


0E30 


TA32 


2E4A 


DE4Q 


1A33 


2E4E 


9cm 




2E50 


2081 




2E52 


OE40 


1A30 


2E56 


9947 




2E58 


C775 


OOFF 


2E5C 


4070 


1A54 


2E60 


0803 




2E62 


9031 




2E64 


C310 


0080 


2E68 


4230 


2E8A 


2E6C 


C310 


0002 


2E70 


2237 




2E72 


C310 


0061 


2E76 


213A 




2E78 


0804 




2E7A 


4810 


1AS4 


2E7E 


2136 




2E80 


41D0 


2B4C 


2E84 


0E4Q 


1A30 


?Fea 


030E 




2E8A 


4870 


1A56 


2E8E 


2771 




2E90 


4070 


1A56 



SECT2 



3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 

36l n 

3611 

3612 

3613 

36l« SECT3 

3615 

3616 

3617 

3618 

3619 WSECT 

3620 

3621 

3622 

3623 

3624 SSTA 

3625 

3626 

3627 

3628 

3629 

3630 

3631 SSTA1 

3632 

3633 

3634 

3635 

3636 

3637 

3636 

3639 

3640 

3641 

3642 

3643 

3644 AGAIN 

3645 

3646 



AHI 

OC 

WHR 

WHR 

LH 

CLHI 

BE 

LOAR 

SLLS 

OAR 

NHI 

W0« 

WHR 

WHR 

BS 

LOAR 

SLLS 

OAR 

NHI 

WDR 

LH 

6N2 

OC 

OC 

B 

SSR 

THI 

8NZ 

OC 

OC 

SSR 

BTBS 

OC 

RHR 

XHI 

STH 

LOAR 

SSR 

THI 

BNZ 

THI 

BZS 

THI 

BNZ 

LOAR 

LH 

BNZ 

BAL 

OC 

BR 

LH 

SIS 

STH 



R1.255 

R4, STOPS 

R4tR5 

R4.R1 

R7.0ISKTYPE 

R7,2 

SECT2 

R1.R9 

R1.10 

R1.R6 

R1,X«7FFF« 

R3.R10 

R3»Rl 

R2.R9 

SECT3 

R1.R9 

Rl,5 

HI. RIO 

R1,X»3F» 

R3.R1 

R7.DRWFLAS 

WSECT 

R3.DREA0 

R4tSREA0 

SSTA 

R2.R1 

R1,X«80» 

WPROT 

R3.0URITE 

R4tSHRlTE 

R4.R1 

8.1 

R4. STOPS 

R4.R7 

R7,255(R5l 

R7.SELERR 

R0.R3 

R3.R1 

R1,X'80« 

AGAIN 

R1.2 

SSTA1 

Rl,X«6l» 

AGAIN 

R0.R4 

R1,SELERR 

AGAIN 

R13«0ISKWAIT 

R4. STOPS 

R14 

R7. RETRY 

R7.1 

R7. RETRY 



NEW END ADORESS(ONE SECTOR I 

SELCM STOP 

SEND START AOORESS 

SEND END ADDRESS 

SET DISK TYPE FLAG 

2,5 OR 10 M8 

BRANCH IF YES 

•HEAD* 

•CYLINDER* 

CLEAR UNUSED BITS 

WRITE SECTOR NUMBER To CONTROLLER 

WRITE HEAD. CYLINDER INFO 

SEND HEAO NO. TO ORI^E 

HEAD 

SECTOR 3 HEAO 
CLEAR UNUSED BITS 
SENO TO CONTROLLER 

WRITE SECTOR 
READ SECTOR 
SELCH READ 



WRITE PROTECTEDI 
DISK WRITE 
SELCH WRITE 

SELCH BUSY 

GET FINAL AOORESS 
COMPARE TO START PLUS 855 
LOGICAL COMPARE TO CHECK LATER 
CONTROLLER ADDRESS 

WRITE PROTECT OR OVERRUN 



LOOP UNTIL IDLE 

HO/ ADR FAIL, DEF SEC. O^F TRK? 

TRY AGAIN IF ERROR 

SELCH ADDRESS 

RESULT OF FINAL ADORERS CHECK 

TRY AGAIN IF SELCH XFER ERROR 

GOOD TRANSFER' HAIT FoR IDLE 

RETURN 
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2E9«t 


*310 


20F6 


36<t7 


BNM 


SECT1 




2E98 


t300 


2AA2 


3fei*8 


B 


MTERXY 










3650 


* S U B R U 


TINE COMPARE 








3651 


* 






2E9C 


C860 


U100 


3652 








2EA0 


C850 


3C5C 


3653 


COHPAREY LOAI 


R5.CHK8UF 




2EA<t 


2«U0 




365"t 


COMPARE LIS 


R1.0 


INDEX 


2EA6 


<t87l 


385C 


3655 


COMPARER lh 


R7,INBUFfRl> 


DATA READ 


2EAA 


t575 


0000 


3656 


CLH 


R7tO<R5) 


COMPARED TO EXPECTED 


2EAE 


023E 




3657 


BNER 


Rin 


RETURN ON NON MATCH 


2EB0 


2652 




3658 


AIS 


R5.2 


PATTERN ADDRERSS 


2EB2 


2612 




3659 


AIS 


Rl,2 


BUMP INDEX 


2EB4 


0516 




3660 


CLAR 


R1.R6 


DONE? 


2EB6 


2068 




3661 


BL 


COHPAREL 


LOOP 


2EB8 


2*10 




3662 


LIS 


ftl.O 


CLEAR CONOJTION CODE 


2EBA 


030E 




3663 


BR 


Rl«t 


RETURN/COMPLETE HATCH 
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LEVEL 15 SUBROUTINES 



3665 ^SUBROUTINE NQHOTION 



?FBC 
2E3E 
2EC0 


0802 
9021 
4210 2A84 


2EC4 
2EC8 
2ECA 


C310 noio 

2236 

030F 



*ECC 


0360 


IA14 


?EO0 


249G 




2E02 


24A0 




?E04 


41C0 


2AC6 


2EC8 


41EC 


?006 


2E0C 


48E0 


385C 


2EE0 


C5E0 


rEEE 


2EE4 


4230 


2A70 


2EE8 


2450 




2EEA 


0365 


385E 


2EEE 


0866 




2EF0 


033F 




?EF2 


0460 


J75E 


2EF6 


2139 




2EF8 


4865 


385C 


2EFC 


4560 


375c 


2F00 


2134 




2F02 


4860 


1AFC 


2F06 


030F 




3F08 


2658 




2F0A 


C550 


0100 


2F0E 


4280 


2EEA 


2F12 


26A1 




2F14 


487o 


1A68 


2F18 


45A7 


1A8C 


2P1C 


2188 




2F1E 


24A0 




2F20 


2691 




2F22 


4597 


1A9A 


2F26 


2163 




2F28 


2561 




2F2A 


030F 




2F2C 


41C0 


?AC6 


2F30 


41E0 


?006 


2F34 


4300 


2EE8 



3666 


* 






3667 


NOMOTION 


LOAR 


R0.R2 


3668 




SSR 


R2,R1 


3669 




BTC 


l.OU 


3670 




TMI 


R1,X»10» 


3671 




BZS 


NOMOTION 


3672 




BR 


R15 


3674 


« S U B 1 


H U 


TINE D I R 


3675 


* 






4676 


DI«SERCH 


LB 


R8.DIRSTART 


3677 




LIS 


R9.0 


3678 




LIS 


RlOiO 


3679 




BAL 


R12.SULH56.2 


3680 




BAL 


Rl4tREAOSECT 


3681 




LH 


R14»INBUF 


3682 




CLHI 


R14,X«EEEE' 


3683 




BNE 


RDIRERRl 


3684 


OlRSRCHl 


LIS 


R5.0 


3685 


DIRSRCH2 


LB 


R6.INBUF+2CR5) 


3686 




LOAR 


R6.R6 


3687 




BZR 


R15 


3688 




CLB 


R6.P0B+2 


3689 




BNE 


OIRSRCH3 


3690 




LH 


R6.INBUF(R5) 


3691 




CLH 


R6.P0B 


3695 




BNE 


OIRSRCH3 


3693 




LH 


R6,SE0NHH 


3694 




8R 


R15 


3695 


OTRSRCH3 


AIS 


R5.6 


3696 




CtHI 


R5.256 


3697 




BL 


DIRSRCH2 


3698 




AIS 


R10«1 


3699 




LH 


R7,DI$KTYPE 


3700 




CLH 


R10»SECTAB<R7) 


3701 




BL 


0IRSRCH4 


3702 




LIS 


R1O.0 


3703 




AIS 


R9.1 


3704 




CLH 


R9,H0TAB(R7J 


3705 




BLS 


DIRSRCH4 


3706 




LCS 


R6.1 


3707 




BR 


R15 


3708 


0IRSRCH4 


BAL 


R12.SULH56.2 


3709 




BAL 


Rl4tREA0SECT 


3710 




B 


OlRSRCHl 


3712 


* sue 


R 1 


J T I N E R N 


3715 


* 







DU ERROR 

NO MOTION SET? 

WAIT FOR IT 

RETURN 



S E R C H 



DIRECTORY CYLINDER 

HEADa 

SECTOR 

SET START I ENO ADDRESSES 



GOOD DIRECTORY? 

ERROR IF NO 

INOEX 

LOOK AT LS SEQUENCE 

ZERO? 

EXIT IF YES 

HATCH CURRENT SEQUENCE? 

SKIP IF NO 

MS SEQUENCE 

NATCH? 

SKIP IF NO 

SET R6 = HEX SEQUENCE 

AND RETURN 

NEXT ENTRY IN DIRECTORY 

OUT OF SECTOR? 

NO. KEEP LOOKING 

YES, INCREMENT SECTOR NUMBER 

LIMIT CHECK 

BACK TO SECTOR ZERO 

ON THE NEXT HEAD 

LAST HEAD? 

SKIP IF NO 

R6 GETS -1 

RETURN, DIRECTORY FULL 

READ NEXT DIRECTORY SECTOR 
GO LOOK AT IT 



X T S E C T 



COMMON MHO CROSS GENERATOR 06-252R04H96A13 
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2F38 


2470 




?F3A 


2302 




2F3C 


2*71 




2F3E 


407o 


1A52 


2F42 


41D0 


2820 


2F4S 


DE20 


1A3S 


2F4A 


41D0 


?B4C 


2F4E 


4870 


1A68 


2F52 


45A7 


1A8C 


2F56 


218A 




2F58 


24Ao 




2F5A 


2691 




2F5C 


4597 


1A9A 


2F60 


2185 




2F62 


2490 




2F64 


2681 




2F66 


4300 


2F42 


2F6A 


41E0 


?C70 


2F&E 


C310 


0020 


2F72 


2334 




2F74 


26A1 




?F76 


43U0 


2F4E 


2F7A 


4670 


1A52 


2F7E 


2331* 




2F80 


41E0 


900 A 


?F84 


2303 




iF86 


tlEC 


?0D6 


?F8A 


-+870 


lA6S 


2F8E 


26A1 




2F90 


45A7 


1A8C 


2F94 


2188 




?F96 


24A0 




2F99 


?69l 




^F94 


1*597 


1A9A 


■?F9£ 


2183 




2FA0 


2490 




2FA2 


2681 




2FA4 


2400 




2FA6 


030F 





37m 


RNXTSECT 


LIS 


R7,Q 


3715 




BS 


RWNEXT 


3716 


* SUB 


R 


UTINE y N 


3717 


* 






3718 


wnxtsect 


LIS 


R7,l 


3719 


RWNEXT 


STH 


R7.DRWFLAG 


3720 


NEXTSEC1 


BAL 


RX3tFlLFSET 


5721 






R2 tSEEK 


3722 




BAL 


R13.DISKWAXT 


3723 


NEXTSEC2 


LH 


R7tOISKTYPE 


3724 




CLH 


R10«SECTAB(R7J 


3725 




BL 


NEXTSEC4 


3726 




LIS 


R10.0 


3727 




AIS 


R9,l 


3726 




CLH 


R9,H0TAB(R7» 


3729 




BLS 


NEXTSECft 


3730 


NEXTSEC3 


LIS 


R9.0 


3731 




AIS 


R8,l 


3732 




B 


NEXTSEC1 


3733 


NEXTSEC4 


BAL 


R14»READCHCK 


3734 




THI 


R1,X'20» 


3735 




BZS 


NEXTSEC5 


3736 




AIS 


R10.1 


3737 




e 


NEXTSEC9 


3738 


NEXTSEC5 


LH 


R7.DRWFLAG 


3739 




BZS 


RSECT 


3740 




BAL 


R14.WRITSECT 


37^1 




3S 


NEXTDISK 


37H2 


rsect 


BAL 


R14tREA0SECT 


3743 


nextdisk 


LH 


R7.DISKTYPE 


3744 




AIS 


R10«l 


3745 




CLH 


R10.SECTA8CR7I 


37i»6 




BL 


NEXTEXIT 


37<t7 




LIS 


R10»0 


37itfl 




AIS 


R9.1 


37H9 




CLh 


R9.HDTABIR7) 


3750 




BL 


NEXTEXIT 


3751 




LIS 


R9,0 


3752 




AIS 


R8.1 


3753 


nextexit 


LIS 


ROtO 


3754 




BR 


R15 
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X T S E C T 



BEYOND MAX SECTOR? 

RESET TO SECTOR o 

NEXT HEAD 

BEYOND MAX HEAD 

BRANCH IF NO 

SWITCH BACK TO HEAD ZpRO 

NEXT CYLINDER 

SO SEEK IT 

READ CHECK THIS SECTOR 

TEST FOR DEFECTIVE SECTOR 

60 READ OR WRITE IF OK 

DEFECTIVE SECTOR 



POINT TO NEXT SECTOR 



CLEAR CC ANO LEAVE 

SECTOR ZERO 

NEXT HEAD 

LIMIT? 

NO, HESET CC * LEAVE 

RESET HEAD 

NEXT CYLINDER 

CLEAR CONDITION CODE 

RETURN 



3756 *SUBR0UTINE FORHLBA 









3757 


* 






2FA8 


4870 


1A68 


3758 


FORKLBA 


LH 


R7.0ISKTYPE 


2FAC 


2400 




3759 




LIS 


RO.O 


2FAE 


2410 




3760 




LIS 


R1.0 


2FB0 


OBBe 




3761 




LDAR 


Rll»R8 


2FB2 


27B1 




3762 


F0RHLBA1 


SIS 


Rlltl 


2FB4 


2186 




3763 




BLS 


F0RMLBA2 


2FB6 


4A17 


1AB6 


3764 




AH 


R1,LBATAB«R7) 



R0.R1 a ACCUMULATOR 



RO.Rl 6ETS CYLINDER NUMBER 
TIMES THE NUMBER OF SECTORS 
ON EACH CYLINDER* ACCORDING 
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2FBA 


2264 


2FBC 


2601 


2FBE 


2206 


2FCQ 


08B9 


2FC2 


27B1 


2FC4 


2186 


2FC6 


4A17 1A8C 


2FCA 


228i» 


2FCC 


2601 


:>FCE 


2206 


2FQP 


OA1A 


?F02 


0S8F 


2FC4 


2601 


2FQ6 


03UF 



2F08 


41DC 


2B20 


2F0C 


DE20 


1*39 


2FE0 


moo 


2B4C 


2FE4 


•neo 


2C70 


2FE8 


C310 


0020 


2FEC 


4230 


1C4C 


2FF0 


41C0 


2AC6 


2FF4 


4810 


1A18 


» 2FF8 


2135 




2FFA 


41E0 


200A 


2FFE 


4300 


?F8A 


3002 


C850 


3C5C 


3006 


C865 


OOFF 


300A 


41E0 


?006 


300E 


41E0 


?E9C 


3012 


023F 




3014 


4300 


2F8A 



3765 




BNCS 


FORMLBAl 


3766 




AIS 


RO.l 


3767 




BS 


FORMLBAl 


3766 


F0R1LBA2 


LOAR 


RU.R9 


3769 


F0RFU.BA3 


SIS 


Rlltl 


3770 




BLS 


FORMLBAu 


3771 




AH 


Rl.SECTAB(R7) 


3772 




BNCS 


FORMLBAS 


3773 




AIS 


RO.l 


3774 




BS 


FORMLBA* 


3775 


R)R"LBA4 


AAR 


R1.R10 


3776 




BNCR 


R15 


3777 




AIS 


RO.l 


3776 




BH 


R15 


3760 


* S U B 


R U 


TINE 01 


3781 


* 






376? 


OISKSET 


BAL 


R13tFlLESET 


3783 




OC 


R2.SEEK 


3784 




BAL 


R13«DIS«WAIT 


3785 




BAL 


R14iREADCHCK 


3766 




THI 


Rl,X'20« 


3787 




BNZ 


flDERROOi 


3788 




BAL 


R12iSULHS6.2 


3769 




LH 


RI.WERIFLAG 


3790 




8N2 


DISKSETl 


3791 




BAL 


R14.WRITSECT 


3792 




e 


NEXTOISK 


3793 


* 






3794 


DISKSET1 


LOAI 


R5.CHKBUF 


3795 




LHI 


R6.2551R5J 


3796 




BAL 


Rlf.REAOSECT 


3797 




BAL 


R1«mC0MPAREX 


3798 




3NER 


R15 


3799 




B 


NEXTDISk 
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TO OISK TYPE. 



NOW ADO HEAD NUMBER TIMES 
THE NUMBER OF SECTORS ON 
EACH TRACK, ACCORDING TO 
DISK TYPE 



FINALLY ADO THE SECTOR NUMBER 



SET 

SET UP FILE...R7 GETS DlSKTYPE 

HAITI CONTROLLER IDLE. DISKRSRW 
READ CHECK THE SECTOR 
DEFECTIVE SECTOR? 
OEFECTIVE MEDIA 
INPUF. INBUF+255 

SKIP IF VERIFY 
WRITE THIS SECTOR 
BUMP POINTERS 



READ THE VOLUME DESCRIPTOR 
COMPARE INBUF 8 CHKRUF 
RETURN IF BAD COMPARE 
BUMP POINTERS IF GOOD 
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0000 


3018 


3018 


2440 




301A 


2303 




301C 


4000 




301E 


4010 




3020 


4040 


0022 


302* 


C840 


O01C 


302S 


njin 


0079 


302C 


0320 


0079 


3030 


C420 


0030 


3034 


C620 


00C7 


3038 


C850 


OOOO 


303C 


C860 


01F7 


3040 


9013 




3042 


2081 




3044 


D915 


0000 


3048 


2652 




304A 


0565 




304C 


2286 




304E 


9013 




3050 


2152 




3052 


230E 




3054 


C650 


D500 


3056 


4050 


0050 


305C 


C850 


UOCF 


3060 


4050 


0052 


3064 


9E12 




3 066 


9013 




3068 


2221 




306A 


4300 




306C 


0050 




306E 


9E12 




3070 


9013 




3072 


2221 




507i» 


C650 


nl*8 


?07fi 


C860 


nice 


307C 


9814 




307E 


2726 




3080 


9E12 




3082 


9013 




3084 


2081 




3086 


0915 


0000 


308A 


2652 




308C 


0565 




308E 


2286 




3090 


9013 




3092 


2152 




3094 


2305 




3096 


2626 




3098 


9E12 




309A 


4300 


0006 



3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3628 
3829 
3830 
3831 

3832 
3B33 

3834 
38J5 
3836 
5837 
3838 
3839 
38i*0 
3841 
3842 
3843 
3844 
3845 
3646 

3847 
3848 
3849 
3850 
3851 
3852 



STARTAD 
BOOTST 



B00T1 



EQU 
LIS 
3S 
OCX 
OCX 
STH 
LHI 
LB 
LB 
NHI 
OHI 
LHI 
LHI 
« LOAD REST OF 
B00T1B SSR 
BTBS 
RH 
AIS 
CLAR 
BNLS 
SSR 
BTFS 
BS 
REOOBL LHI 
STH 
LHI 
STH 
OCR 
SS3 
BFBS 
OCX 

STOPA OCR 
IDLE SSR 
BFBS 
LOAI 
LOfll 
WHR 
SIS 
OCR 
» READ DIRECTOR 
BOOT1C SSR 
BTBS 
RH 
AIS 
CLAR 
BNLS 
SSR 
BTFS 
BS 
REDO AIS 
OCR 
B 



R4,0 

BOOT1 

4000 

4010 

R4,X«22» 

R4.28 

(M.X«7«t 

R2ix«79« 

R2,X'30» 

R2,X»C7» 

R5tX»D0» 

R6,EN0AD-STARTAD*X 

BOOT LO»OER 

K1.R3 

6,1 

R1.QIR5J 

R5t2 

R6.R5 

BOOT1B 

R1.R3 

5.RED0BL 
STOPA 

R5 t X , D500» 

R5,X«50» 

R5,X«CF» 

R5,X'52» 

RliR2 

R1.R3 

2.1 

4300,0050 

R1.R2 

R1.R3 

2,1 

R5.LDBUF 

R6.LDBUF+32 

R1.R4 

R2.6 

R1.R2 

T 

R1.R3 

8,1 

R1,0<R5I 

R5.2 

R6.R5 

300T1C 

R1.R3 

5, REDO 

STOP1 

R2,6 

R1.R2 

IDLE-STARTAD+X'SO* 



REGISTER SAVE POINTER tl^BlT) 
LOAD OIRECTORY START LR* 
LOAD DEVICE ADDRESS 

REMOVE DRIVE SELECT BITS 
FORM STOP COMMAND 
START ADDRESS 
»O0' 



WAIT ON BUSY 
READ HALFUOROS 
BUMP INDEX 

LOOP 

CHECK FINAL STATUS 

RETRY BOOT LOAO 



STOP 

WAIT FOR IDLE 
B X«50» 

STOP COMMAND 

LOOP ON NOT IDLE 
START ADDRESS 

WRITE LRN TO CONTROLLER 
FORM READ COMMAND 
ISSUE READ COMMAND 



LOOP 

ERROR, RETRY 



ISSUE STOP COMMAND 
60 TO IDLE 
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F«0 


BOOT ! 


LOAOER 












3Q9E 


2626 




3853 


ST0P1 


AIS 


R2,6 




30AQ 


9E12 




3854 




OCR 


R1.R2 


ISUE STOP COHNANO 


30A2 


9013 




3655 




SSK 


R1.R3 




30A4 


2221 




3656 




BF8S 


2.1 


WAIT FOR IDLE 


30&6 


C840 


4000 


3857 




LHI 


R4,X»4000» 


TEST PATTERN 


30AA 


0A44 




3858 




AAR 


R4.R4 




30AC 


2115 




3659 




BMS 


IS16 


BRANCH. 16 BIT HOST 


50AE 


2*70 




3660 




LIS 


R7i0 


SET 32 BIT FLAG 


30B0 


«f6H0 


OlAE 


3861 




LH 


R4,L0BUF+6 


32 BIT POB POINTER 


3094 


2304 




3862 




BS 


COM 




3066 


4840 


OlAA 


3863 


IS16 


LH 


R4.LDBUF+2 


16 BIT PDB POINTER 


50BA 


2472 




3864 




LIS 


R7.2 


16 BIT FLAG 


3 09C 


C850 


nlAB 


3865 


COM 


LDA1 


R5.L0BUF 


START AOORESS 


soca 


C860 


r.227 


3866 




LDAI 


R6.L0BUC+127 


ENO ADDRESS 


30C* 


96m 




3867 


C0M1 


WHR 


R1.R4 


PDB LRN TO CONTROLLER 


30C6 


2726 




3868 




SIS 


R2.6 




30C9 


9E12 




3869 
3670 


• READ 


OCR 
PD9 


R1.R2 


ISSUE READ COMMAND 


30CA 


9013 




3871 


B00T10 


SSR 


R1.R3 




30CC 


2061 




3872 




BTBS 


8,1 


WAIT ON BUSY 


30CE 


0915 


nooo 


3873 




RH 


R1.0CR5) 




3002 


2652 




3874 




AIS 


R5.2 




3004 


0565 




3875 




CLAR 


R6.R5 




3006 


2286 




3876 




BNLS 


800T10 


LOOP 


30D8 


9013 




3877 




SSR 


R1.R3 




30DA 


2152 




3878 




BTFS 


5.RED01 


ERROR RETRY 


303C 


2307 




3879 




BS 


RDLDRGEN 


ELSE READ PROGRAM 


30DE 


2626 




3880 


RE001 


AIS 


R2.6 




30E0 


9E12 




3681 




OCR 


R1.R2 


ISSUE STOP COMMAND 


30E2 


9013 




3882 




SSR 


R1,R3 




30E4 


2221 




3883 




BFBS 


2.1 


WAIT FOR IDLE 


30E6 


4300 


nl24 


3884 




B 


COM-STARTAO+X'80' 


GO TO COM 


30EA 


2626 




3885 


RDLDRGEN ais 


R2.6 




30EC 


9E12 




3886 




OCR 


R1.R2 


ISSUE STOP COMMAND 


30EE 


9D13 




3867 




SSR 


R1.R3 




30F0 


2221 




3888 




BF8S 


2.1 


WAIT FOR IDLE 


30F2 


2726 




3889 




SIS 


R2.6 




30F4 


2641 




3890 




AIS 


R4,l 




30F6 


4850 


OlBO 


3891 


RED03 


LH 


R5.L0BUF+8 


LOAD LOW 


30FA 


4050 


01A0 


3892 




STH 


R5,BOOTeN16-STARTAD+X»60« 


30FE 


4050 


01A6 


3893 




STH 


R5.BOOTEN32-STARTAD+X»80' 


3102 


4860 


01B4 


3894 




LH 


R6.LDBUF+12 


LOAD HIGH 


3106 


9614 




3895 




WHR 


R1.R* 


WRITE LRN TO CONTROLLER 


3108 


9E12 




3896 




OCR 


R1.R2 


ISSUE READ COMMAND 








3897 


* READ 


LOADER. 


•GENERATOR PROGRAM 




310A 


9013 




3898 


B00T1E 


SSR 


R1.R3 




310C 


2081 




3899 




BTBS 


8,1 


LOOP ON BUSY 


310E 


0915 


0000 


3900 




RH 


R1,0<R5> 




3112 


2652 




3901 




AIS 


R5.2 




3114 


0565 




3902 




CLAR 


R6.R5 




3116 


2286 




3903 




BNLS 


BO0T1E 


LOOP 


3116 


9013 




3904 




SSR 


R1.R3 




311A 


2152 




3905 




BTFS 


5.RED02 


ERROR RETRY 
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311C 


2307 




3906 




BS 


TURNOVER 




311E 


2626 




3907 


RE002 


AIS 


R2.6 




3120 


9E12 




3908 




OCR 


R1.R2 


ISSUE STOP COHHANO 


3122 


9013 




3909 




SSR 


R1.R3 




3124 


2221 




3910 




BFBS 


2.1 


WAIT FOR IDLE 


3126 


<*300 


nl5E 


3911 




B 


REDO3-STARTAD*X«80' 


GO TO RED03 


312A 


2626 




3912 


TURNOVER 


AIS 


R2»6 




512C 


5E12 




3313 




OCR 


Ki,Rt 


ISSUE STOP COnnAND 


312E 


9013 




3914 




SSR 


R1,R3 




3130 


2221 




3915 




BFBS 


2,1 


WAIT FOR IDLE 


3132 


0877 




3916 




LOAR 


R7.R7 


TEST HOST F|_A6 


3131* 


2333 




39i7 




B2S 


G032 


BRANCH, 32 BIT 


3136 


4300 




39J8 




OCX 


4300 


ELSE TAKE 16 BIT BRANCH 


3138 


6000 




3919 


B00TEN16 


OCX 


6000 




313A 


4300 




3920 


G032 


OCX 


4300 




S13C 


4000 




3921 




OCX 


4000 


RX3 BRANCH 


313E 


6000 




39?2 


B00TEN32 


OCX 


6000 


32 8IT START 




0000 


313F 


39g3 
3924 


ENDAO 

* 


EOU 


*-l 
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><AG TAPE qOOT LOaOER 



P»SE ft» lltOltsa 08/31/81 



3140 


0310 


0078 


3927 HTBOOT LB 


R1,X'78« 


3144 


2*20 




3928 


LIS 


R2.0 


3146 


0330 


0070 


3929 


LB 


R3.X'7D» 


sma 


9*23 




3930 


EX3R 


R2.R3 


31»C 


EC20 


008 


3931 
3932 « 


SRL 


R2.8 


3150 


9019 




3933 MTB00T1 SSR 


R1.R9 


3152 


9198 




3934 
3935 * 


SLULS 


R9.ll 


3154 


2282 




3936 


BNCS 


MTBOOTl 


3156 


C850 


oloo 


3937 


LHI 


R5,X«iO0« 


315ft 


246i 




3938 


LIS 


R6,l 


315C 


C860 


n263 


3939 


LHI 


R6«MTL0A0E 


3160 


C800 


0030 


39*0 


LHI 


R0,X'30' 


3164 


2448 




3941 


LIS 


R4«8 


3166 


9E24 




39i»2 


OCR 


R2.R4 


3168 


9A39 




394 J 
3944 * 


HDR 


R3.R9 


316A 


9825 




3945 


WHR 


K2.R5 


316C 


9A39 




39tt6 


WDR 


R3.R9 


316E 


9826 




391*7 


WHR 


R2,R6 


3170 


0E10 


0079 


3948 


oc 


R1»X'79« 


3174 


9E30 




3949 


OCR 


R3.R0 


3176 


2145 




3950 


BOS 


HTBOOT2 


3178 


9D29 




3951 


SSR 


R2,«9 


317« 


2081 




3952 


BTBS 


8,1 


317C 


9E24 




3953 


OCR 


R2.R4 


317E 


0305 




3954 


BR 


R5 


3160 


9D19 




3955 MTB00T2 SSR 


R1.R9 


3182 


2061 




3956 


BTBS 


6,1 


3184 


DB15 


nOOO 


3957 


RD 


R1,0(R5) 


3188 


C150 


3180 


3958 


BXLE 


R5.HTBOOT2 


318C 


4300 


0100 


3959 


B 


X'lOO* 


3190 


0000 




3960 


OCX 


0000 


3192 


0000 




3961 


OCX 


0000 



6ET TAPE DEVICE ADDRESS 

PICK UP SELCH AOORESS 
iR2>=«SS00« OR 'OOOOSSOO* 
IF 16 BIT, (R2,R3)=>00SSt0000* 
IF 32 BIT, cR2>=(R3)=«0000O0SS» 

status check 
no motion bit to carry 
ls byte of r9 = 00 
wait for no. motion 
load start aooress 
bxle increment 
■htloads+x'ioo' load end address 
selch read command 
selcm stop command 

SELCh STOP 

ms byte of 3 byte address 
r3=selch aooress if 32 bit host 
ls 2 bytes of start aooress 
ms byte of 3 byte end address 
ls 2 bytes of end address 
mag tape write 

SELCH GO 

FALSE STNC x NO SELCH 

ELSE, WAIT FOR SELCH NOT BUSY 

LOOP ON BUSY 

SELCH STOP 

BRANCH, START CODE JUST LOADED 

MAS TAPE STATUS 

LOOP ON BUSY 

READ A BYTE 

DECREMENT INDEX S LOOP 

SO TO LOAD START ADRS 

FILLER 

FILLER 
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3194 


0310 


0078 


3198 


9019 




319A 


C39 


0010 


S19E 


2233 




31A0 


C8F0 


A023 


31A4 


C8E0 


r>8C0 


31A8 


0390 


0079 


31AC 


C59o 


00A1 


31t30 


2333 




31B2 


90F8 




SIS'* 


90E.8 




31B6 


9E1F 




31B8 


9E1E 




31BA 


9019 




31BC 


C390 


nOlO 


51C0 


2233 




31C2 


0833 




31C4 


2336 




31C6 


9E1E 




31C8 


9019 




31CA 


C390 


0010 


31CE 


2233 





3100 


C850 


(1264 


3100 


C860 


0281 


3108 


9E24 




31DA 


2490 




31DC 


9A39 




31DC 


9825 




31E0 


9A39 




31E2 


9826 




31E4 


OEIO 


0079 


31E8 


9E30 





3963 
3964 
3965 
3966 
3967 

3969 

3970 

3971 

3972 

3973 

397* 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 

3987 

3988 

3969 

3990 

3991 

3992 

3993 

399* 

3995 

3996 

3997 

3998 

3999 

tooo 

*001 
4002 
4003 
4004 
4005 
4006 
l»007 
4008 
4009 
4010 

ton 

•♦012 
»013 
4014 
4015 



* THE FIRST PART OF THE BOOT LOADER RESIDES I« MEMORY 

* FROM LOCATION X»80« TO X'CF». IT IS LOADED BY THE 

* X'50* SEOUENCE. WHEN CONTROL IS TRANSFERRED TO IT, 

* THAT CODE READS IN THIS NEXT SECTION WHICH STARTS 

* «T ADDRESS X*100». 



♦ ON iNpuTt 

* 

* 

* 
* 



(RO)=SELCH READ COMMAND. X«30' 

IR1I=HAG TAPE DEVICE ADDRESS 

«S2i=sELCH ADDRESS 

<R3>rO IF 16 BIT HOST 

(R3)=SCLCH ADDRESS IF 32 BIT HOST 

<R4)=SELCH STOP COMMAND. X'08« 

(R6)=l 



MTLOADS 

MTLOADSO 



MTLOADSl 
HTL0AD2 



MTL0A03 



* 
* 
* 
MTL0A04 



LB 

SSR 

THI 

3ZS 

LHI 

LHI 

LB 

CLHI 

BES 

SRrtLS 

SRHUS 

OCR 

OCR 

SSR 

THI 

BZS 

LDAR 

BZS 

OCR 

SSR 

THI 

BZS 



R1.X'78» 

R1.R9 

R9,X«10» 

MTLOADSO 

R15«X'A023« 

R14»X«OBC0» 

R9,X'79t 

R9,X»Alt 

MTLOADSl 

«15»« 

R14.8 

R1.R15 

R1.R14 

R1.R9 

R9,X'lQ. 

MTL0AD2 

R3.R3 

WTL0AD4 

R1.R14 

R1.R9 

*9,X'10» 

MTL0AD3 



6ET TApE DEVICE ADORESS 

HAG TAPE STATUS 

TEST FOR NO MOTION 

WAIT FOR IT 

FF COMMANDS 

DISARM COMMANDS 

GET READ COMMAND 

600/1600 BPI? 

SKIP IC Vrs 

FF COMMAND FOR 6250 

DISARM COMMAND FOR 6250 

DISARM 

FORWARD FILE «ARK 

NO MOTION? 

NO, UAIT 

CHECK HOST 

SKIP IF 16 BIT HOST 

ELSE, ANOTHER FORWARD FILE 



no Motion check 

tape is now in position at the 
beginning of the first or second 
program, oepending on the host, 
next, read in part of that program's 
program definition block <pdbi 

lhi r5.booten-htloads*x'100' start aors 
lhi r6.b00ten-htl0ads*x'110* end aors 
ocr r2.r4 selch stop 

LIS R9.0 

WDR R3.R9 MS BYTE OF 5 BYTE START AORS 

WHR R2.R5 L s 2 BYTES OF START ADRS 

WOR R3.R9 MS BYTE OF 3 BYTE END AORS 

WHR R2.R6 LS 2 BYTES OF END ADDRESS 

OC R1,X«79« START TAPE 

OCR R3,R0 SELCH GO 
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31EA 


21*5 




31EC 


9029 




31EE 


2081 




31FO 


9E2* 




31P2 


230A 




31F* 


9019 




31F6 


2061 




31F8 


DB15 


1)000 


31FC 


2651 




31FE 


0565 




3200 


2286 




S202 


9019 




320* 


2170 




32C6 


9D19 




3203 


C390 


0010 


320C 


2233 




320E 


0390 


0276 


3212 


0350 


0277 


3216 


9158 




3218 


D36Q 


0278 


321C 


0656 




321E 


0833 




3220 


233«* 




3222 


3*79 




322* 


0675 




3226 


2302 




3228 


0875 




3224 


0857 




322C 


OSAo 


n279 


3230 


0360 


027A 


323* 


9*66 




3236 


O380 


027S 


323A 


0666 




323C 


0833 




323E 


2230 




»* 1)002 


• • 


MTL0A06C 


32*0 


3*BA 




32*2 


066B 




32** 


0885 




32*6 


CA80 


OOFF 


32*A 


0568 




32*C 


2382 




32*E 


0886 




3250 


9E2* 




3252 


9A39 




325* 


9825 




3256 


9A3A 




3258 


9826 




325A 


DE10 


0079 


325E 


9E20 




3260 


21*5 





*016 BOS 

*017 SSR 

*0l8 BT3S 

*019 OCR 

4020 as 
*Q21 MTL0A05 SSR 

*Q22 8TBS 

*023 RD 

*02H AIS 

*025 CLAR 

*026 9NLS 

4027 SS* 

*028 BTFS 
*029 MTL0A06 SSR 

*030 THI 

*031 BZS 

*032 LB 

*033 LB 

403* SLHLS 

*035 LB 

*Q36 OAR 

*037 LDAR 

*038 BZS 

*039 * EXHR 

*0*0 OCX 

*0m OAR 

*0*2 BS 
*0*3 MTL0A06A LOAR 
*0** HTLOAD6B LDAR 

*0*5 LB 

*0i»6 LB 

*0*7 EXBR 

*0<*8 LB 

*0*9 OAR 

*050 LOAR 

*051 BZS 

*052 * CXHR 

*053 OCX 

*05* OAR 
*055 MTLOAO? LOAR 

*056 AHI 

*057 CLAR 

*058 BNLS 

*059 LOAR 
*060 NTLOAD7A OCR 

*0fcl UOR 

*062 WHR 

*063 WOR 

*06* HHR 

*065 OC 

*0&6 OCR 

*067 BOS 



SKIP IF FALSE SYNC 
ELSE WAIT FOR SELCH 
TO GO NON-BUSY 
THEN STOP THE SELCH 



MAG TAPE STATUS 

HAIT FOR NON-BUST 

READ 

BUMP INDEX 

DONE? 

NO, LOOP 

FINAL STATUS 

HANG ON ERROR 

TRANSFER COMPLETE 

WAIT FOR NO MOTION 

WAIT FOR NO MOTION 



HTLOA05 

R2,R9 

8,1 

R2.R* 

MTL0AD6 

Rl,R9 

8,1 

R1,0CR5) 

R5,l 

R6.R5 

MTL0A05 

R1.R9 

7,0 

R1.R9 

R9,X'10» 

MTL0AD6 

R9.BOOTCN-MTLOAOS*X'100'+18 

R5,BOOTEN-MTLOADS+X , 100 , *19 

R5,8 POSITION BITS 16-23 

R6.BOOTFN-MTLOADS*X , 100 , *20 

R5.R6 (R9.R5l=PR0GRAH START ADDRESS 

R3.R3 TEST HOST 

MTL0AD6A SKIP IF 16 BIT 

R7,R9 (RTIs'OOXXOOOO' 

3*79 

R7.R5 (R7»='00XXYYZZ' 

MTL0AD6B 

R7.R5 SAVE START ADDRESS 

R5.R7 (R5»=START ADDRESS 

R10»BOOTEN-HTLOAOS*X«100»+21 

R6,BOOTCN-MTLOADS*X'100 , +22 

R6.R6 

RS.BOOTEN-HTLOADS^X^OO'+JS 

R6.R8 (RlO,R6)sLOAO END ADDRESS 

R3.R3 TEST HOST 

MTL0A06C SKIP IF 16 BIT 



RlliRlO 

3*BA 

R6.R11 

R8.R5 

R8.X'FFt 

R6.R8 

MTL0A07A 

R8,R6 

R2.R* 

R3,R9 

R2.R5 

R3.R10 

R2,R6 

R1,X»79» 

R2.R0 

MTL0AD8 



(Rll|=«0OXX00OO» 

(R6la»00XXYYZZ« 

START AORS 

PLUS 255 

COMPARE TO END ADDRESS 

SKIP IF NOT LESS 

IF YES, USE REAL END AOORESS 

SELCH STOP 

MS BYTE OF ADORESS 

OUTPUT START AQRS 

OUTPUT END AORS 
MAG TAPE START 
SELCH START 
SKIP IF FALSE SYNC 



PREVIOUS ERROR ON PAGE 3* 
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MAG TAPE BOOT LOADER 



3262 


9029 




3264 


2081 




3266 


9E24 




3268 


2308 




326A 


9D19 




326C 


2081 




326E 


DB15 


0000 


3272 


2651 




3274 


0585 




3276 


2286 




3278 


0390 


(1079 


327C 


C59o 


00A1 


3280 


2334 




3282 


9019 




3284 


21^0 




3286 


2307 




3288 


9019 




328A 


C39o 


n04o 


328E 


2138 




3290 


9095 




1001 


** 




3292 


2280 




3294 


C858 


0001 


"001 


** 




3298 


0556 




329A 


4280 


OlBO 


329E 


0857 




32A0 


24A0 




32A2 


D3B7 


0000 


32A6 


07AB 




32A8 


2671 




32AA 


0567 




32AC 


2285 




32AE 


9D19 




328U 


C39o 


noio 


3294 


2233 




3266 


C870 


n038 


32BA 


0390 


0079 


32BE 


C590 


nOAl 


32C2 


2333 




32C4 


C870 


nOEO 


32C8 


9E17 




32CA 


9019 




32CC 


C390 


nolo 


32D0 


2233 




3202 


0370 


027C 


32D6 


057A 




32D8 


0335 




320A 


C810 


OOEE 


320E 


24A1 




32E0 


ceeo 


O040 


32E4 


9EAB 





4068 




SSR 


R2.R9 




4069 




BTBS 


8.1 


WAIT ON SELCH BUST 


4070 




OCR 


R2.R4 


SELCH STOP 


4071 




BS 


MTL0A09 




4072 


MTLOAOB 


SSR 


R1.R9 


HAG TAPE STATUS 


4073 




BTBS 


8,1 


LOOP ON BUSY 


4074 




RD 


R1.0IR5) 


READ BYTES 


4075 




AIS 


R5,l 


BUMP ADDRESS 


4076 




CLAR 


R8.R5 


OONE CHECK 


4077 




BNLS 


HTL0A08 


LOOP ON RECORD 


4078 


WTL0AD9 


LB 


R9,X«79» 


GET READ COMMAND 


4079 




CLHI 


R9,X«Alt 


800/1600 BPI? 


4080 




BES 


MTL0A09B 


SKIP IP YES 


4081 


MTL0AD9A 


SSR 


R1.R9 


6250 STATUS 


4082 




8TCS 


2.MTLOA010 


DONE IF EOF 


4083 




BS 


MTL0A09C 


ELSE KEEP READING 


4084 


MTLOAO'B 


SSR 


R1.R9 




4085 




TH1 


R9,X»40» 


EOF? 


4086 




BNZS 


MTLOA010 


DONE IF YES 


4087 


HTL0AD9C 


SRHLS 


R9.5 


no motion check 


4088 




BNCS 


MTL0A09 


WAIT FOR IT 


4089 


MTL0A09C 


LHI 


R5.KR8) 


NEXT START ADRS 


4090 




CLAR 


R5.R6 


COMPARE TO END ADDRESS/ 


4091 




BL 


MTL0AD7-MTL0A0S+X' 


>100« LOOP 


4092 


MTLOAD10 


LDAR 


R5.R7 


START ADDRESS 


4093 


* 






(R6)=END ADDRESS 


4094 




LIS 


R10«Q 


CHECKSUM ACCUMULATOR 


4095 


MTL0A011 


LB 


R11,0(R7) 




4096 




XAR 


R10.R11 


CALCULATE CHECKSUM 


4097 




AIS 


R7.1 




4098 




CLAR 


R6fR7 




4099 




BNLS 


mtloadii 




4100 


HTL0AD12 


SSR 


R1.R9 




4101 




THI 


R9,X»iO» 


NO MOTION CHECK 


4102 




BZS 


MTL0A012 




4103 




LHI 


R7,X»38» 




4104 




LB 


R9,X'79» 


GET READ COMMAND 


4105 




CLHI 


R9,X'A1« 


800/1600 BPI? 


4106 




BES 


MTL0A013 


SKIP IF YES 


4107 




LHI 


R7,X'E0« 


RW COMMAND FOR 6250 


4108 


MTL0AD13 


OCR 


R1.R7 


REWIND THE TAPE 


4109 


MTL0AD14 


SSR 


R1.R9 




4110 




THI 


R9,X'10« 


NO MOTION CHECK 


4111 




BZS 


MTLOA014 




4112 




LB 


R7 .BOOTEN-MTLOADS+X • 1 00 • +24 


4113 




CLAR 


R7.R10 


CHECK CHECKSUM 


4114 




BtR 


R5 


GO IF OK 


4115 




LHI 


R1,X«EE» 




4116 




LIS 


R10.1 




4117 




LHI 


R11»X'40» 




4118 




OCR 


R10.R11 


DISPLAY IN INCREMENTAL 



PREVIOUS ERSOR ON PAGE 86 
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32E6 


9AA1 




4119 




UDR 


RIOtRl 




32E8 


2<*Eo 




•U20 




LIS 


RU.O 




32EA 


9AAE 




"*121 




WOR 


R10.R1« 




32EC 


9AAE 




<H22 




UOR 


RlOtRlif 




32EE 


9AAE 




tl23 




WOR 


RIOtRm 




32F0 


C8B0 


0080 


<U2<t 




LHI 


Rll.X'60' 




32F4 


9EAB 




«U25 




OCR 


RIOtRll 


NORMAL NODE 


32F6 


2200 




4126 




BS 


* 


HANG ON CHECKSUM ERROR 




0000 


32F7 


4127 


HTLOAOE 


EOU 


*-l 






0000 


32F8 


<U28 


BOOTEN 


EQU 


» 
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32F8 

3300 

3308 

3310 

3314 

331C 

332<* 

332C 

3320 

3335 

?33D 

3345 

334D 

335<t 

5J5C 

3364 

336C 

3374 

337C 

3384 

3385 

3380 

3395 

3390 

33A1 

33A9 

33AD 

3385 

33BC 

33C4 

33CC 

3304 

330S 

33E3 

33EB 

33F3 

33F9 

33Fr 

3406 

340E 

3411 

3419 

3421 

3429 

3420 

3433 

343B 

3442 

3444 

3452 

S45A 

3462 

3463 

3463 

3473 



4552 

2044 

5259 

4500 

4445 

4520 

2040 

00 

454E 

4F4C 

4449 

5920 

5252 

454F 

464F 

4449 

2046 

4449 

5920 

00 

4455 

452c 

4345 

5200 

424F 

4445 

5645 

5252 

494E 

4F55 

5045 

5449 

494E 

4449 

5920 

5055 

0O0A 

5044 

4659 

OOOA 

4F2E 

4745 

5920 

OAOO 

4249 

5645 

5252 

564F 

4553 

5220 

2045 

00 

494E 

5444 

464C 



524F 5220 
i»952 4543 
2055 5044 
OAOO 

4645 4354 
4F55 5450 
4544 4941 



4F4E 
544F 
4154 

4956 
5554 
OOOA 



■U30 DIRER 



OB 



PAGE 69 11:01:58 06/31/81 
C'ERROR ON DIRECTORY UPDATE* .13,10,0 



4420 
5540 
5245 
5245 
4F52 
5620 
S54E 
534B 
554C 
5245 
4655 

504C 

5345 

204E 

OAOO 

4F54 

5220 

5249 

4F52 

5641 

5444 

4349 

4F4E 

5641 

5245 

4F4E 

5420 

00 

4220 

2045 

00 

532E 

8056 

4552 

5420 
5249 
4F52 
4C55 
4352 
5645 
5252 



4F46 2056 

iiCnfl ninn 



4354 
4144 
OOOA 
4E4F 
4400 
4554 
4C0O 
4354 
4C4C 

4943 
5155 
5540 



4F52 

20*5 

00 

5420 

OAOO 

5445 

OAOO 

4F52 

OOOA 

4154 
454E 
4245 



204C 4F41 



4659 
ODOA 
4C49 
4556 
4649 
OOOA 
4C49 
4354 
204F 
4449 

5645 
5252 

2049 
4552 
524F 

4041 
4659 
OOOA 
4045 
4950 
5249 
4F52 



4445 562F 
4556 2043 
4943 5400 



2045 

00 

4420 

2053 

4341 

00 

4420 

4F52 

5554 

5349 

5249 
4F52 

4Q41 
4946 

520D 

5020 

2045 

00 

2044 

544F 

4659 

OOOA 

4F55 
4F4E 
OAOO 



4131 HEOMSG DB C'DEFECTIVE OUTPUT MEDIA' , 13,10, 



4132 E0VHS62 DB 

4133 ROEflSG DB 

■H34 EOVRTNM DB 

"»135 TBIGHS6 DB 

4136 EOOHSG OB 



C'END OF VOLUME', 13, 10,0 
C'OIRECTORY REAO ERROR* ,13,10,0 

C»EOV NOT FOUND', 13, 10,0 
C'OISKETTE FULL', 13, 10,0 
C DIRECTORY FULL*, 13, 10,0 



"»137 GOTHSG DB C'DUPLICATE SEQUENCE NUMBER' ,13,10,0 



HISS VERRMSG1 OB 
•♦139 CHKERRM DB 
4140 SPECERR OB 



C'BOOT LOADER • 

C'VERIFY ERROR 1 , 13. 10,0 

C'INVALIO OUTDEV SPECIFICATION' ,13,10,0 



•H41 ERRHSGl DB C'INVALIO DIRECTORY ON OUTPUT DISK' ,13,10,0 



4142 ve*R*IS62 DB 



4143 OSERRM DB 



•H44 0SERRM2 OB 



''145 OSERRM DB 



C'pDB VFRIFY ERROR', 13, 10.0 
C'O.S. I««GE VERIFY ERROR • , 13, 10 , 

C'BIT HAP VERIFY ERROR' ,13,10,0 

C'VOLUME DESCRIPTOR VERIFY ERROR • ,13,10,0 



4146 SPECERR1 DB C • INDEV/OUTDEV CONFLICT' ,13,10,0 
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3479 
3483 
3 4 88 
3493 
3499 
34A1 
34 A 9 
3481 
34B2 
3484 
34C2 
34C7 
34CF 
}<*07 
3400 

34F5 
34FD 
3500 
3501 
3506 
350E 
3515 
3519 
3521 
3526 
352E 
3530 
3538 
3539 
3541 
35*9 
35*6 

3550 
35A0 
35A0 
35A6 
35AC 
3SB4 
35B8 
35BC 
S60C 
365C 
365C 
375C 
385C 
3C5C 
405C 

UQ9C 
tODC 
411C 



494E 

494E 

4543 

494F 

4445 

52*9 

5445 

00 

4445 

"•E^l 

4C45 

554E 

5241 

b24f 

4E4F 

5345 

«»0<tF 

5554 

0004 

OC 

5345 

4F4? 

5540 

504B 

5052 

5449 

2020 

2020 

2020 

20 

4C4F 

4947 

4147 

0O0A 

0000 



5641 

4445 
4946 
4E0O 
1649 
3445 
4354 

&649 
5641 
ODOA 
5245 
424C 
5*00 
2053 
5155 
4E20 
2U4D 
00 



4C49 
5620 
4943 
0A00 
4345 
2050 
4544 

4345 

494C 

00 

434F 

4520 

OAOO 

5543 

454E 

4F55 

4544 



5120 20 
4A45 4354 
4245 5220 
4720 

4F47 5241 
544C 45 
2020 2020 



4420 

5350 
4154 

2057 
524F 

OOOA 

2055 
4142 

5645 

4552 

4820 
4345 
5450 
4941 



204E 
20 



4020 
2020 
2020 2020 2020 



5720 2020 
4820 2020 

OOOA 00 
354F 



2048 
464C 



4147 SPECERR2 DB C'INVALIO INOEV SPECIFICATION' ,13.10.0 

4148 WPR0THS6 DB C'OEVICE WRITE PROTECTED* ,13.10,0 

4149 OrVUNA OB C'DEVICE UNAVAILABLE ' tl3, 10,0 

4150 uNRECOV DB C' UNRECOVERABLE ERROR « ,13. 10,0 

4151 ABSENTM DB C'NO SUCH SEQUENCE ON OUTPUT MEDIA* .13,10, 



4152 HEAOER 

4153 

4154 

4155 
4156 

4157 

4158 

4159 



DB X'OC FORH FEED 

OB C'SEQ > 

06 C« OBJECT NUMBER • 

OB C'PKG » 

DB C'PROGRaH TITLE* 

DB C ' 

DB C • 

DB C'LOM HIGH FLAG' 



4160 OB X'OO',)('0A',X*0O',X«0A',0 

4161 LNZB EQU *-l 

4162 PRINTOUT DS 80 

4163 ALIGN 8 

4164 STBRKSV DS 8 



OS 
OS 



0000 409C 



4165 $Rl5SAV OS 

4166 SR14SAV OS 

4167 R5SAV 

4168 R6SAVE 

4169 $0UTBUF DS 

4170 SINBUF OS 
4171 

4172 IDlRBL* DS 

4173 POB OS 

4174 INBUF OS 

4175 CHKBUF DS 

4176 REGISTER OS 

4177 PSWSAVE EQU 

4178 RSAVE OS 

4179 INTSAV OS 

4180 END 



4 
8 
4 
4 

SBUFLEN 
SBUFLEN 
ALIGN 4 

256 

256 

1024 

1024 

64 

* 

64 

64 
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TABLE SPACE USED 



21K 



SBRKtND 


0000 


165* 


SBRKFLG 


0000 


1558 


SBS.COflM 


0000 


1*98 


SBUFlO 


0000 


oooo 


S9UFLEN 


0000 


0050 


SCKROUT 


0000 


0006 


SCLKSTRT 


0000 


15*F 


SCLOCK 


0000 


0001 


SCOMM1 


0000 


1*C* 


SCOMM1A 


0000 


1*06 


*C0MM2 


0000 


1*E6 


SC0MM3 


OOOO 


151C 


SCOM 


OOnO 


0A5C 


SCONPAS 


0000 


1552 


*DECASC 


0000 


oooo 


SDECHEX 


0000 


oooo 


SDECTAB 


oooo 


oooo 


SDISPLAY 


0000 


0001 


sou.x 


oooo 


12AE 


*ERRPl 


0000 


1*AE 


t£RRF2 


oooo 


1*9E 


SFRRF3 


oooo 


1*38 


*ERRF* 


00(10 


1*00 


SE^RFS 


OOOO 


1*AA 


IERRF5A 


0000 


1*A6 


SERBF6 


oooo 


1*0* 


JERRF7 


oono 


1*92 


SERRF8 


oooo 


1*96 


$FRRF9 


oooo 


1*9A 


SHEXA.l 


oooo 


0F22 


SINBUF 


oooo 


360C 


SIS.OU 


oooo 


12AC 


SKBINT 


oooo 


OOOO 


SK8R.1 


oooo 


12£A 


1KEEP.3 


oooo 


OCAA 


SKEEP3 


oooo 


0CC0 


SKEEP7 


00(10 


0CF2 


1LCOR1 


OOOO 


130E 


*LC0R2 


oooo 


132* 


SLC0R3 


oooo 


1328 


SLC0R3A 


oooo 


1360 


SLCOR* 


oooo 


136E 


SLC0R5 


oooo 


1398 


SLCORXIT 


oooo 


13C0 



91* 


1622* 








195 


213 


910 


911 


1086 


1*51 


1*56 


1*61* 






78* 


8*1 


962 






52* 


65* 


1020 


*169 


*170 


*7* 


2** 


269 


363 


375 


830 


655 


1685 






1559* 










76* 


680 


682 


700 




1502 


150* 


1507* 






1509 


1512* 








1517* 


1519 








1531 


1533* 








171* 


262 


1000 


1510 




1061 


11*1 


1182 


1562* 




7** 


770 








73* 


325 








72* 


158? 








77. 


*7* 








1156 


1158* 








12*5 


1*92* 








1231 


1*70* 








1238 


1396* 


1*39 






1356 


1372* 








1290 


1*8** 








1269 


1*79* 








1377* 










1293 


1*55* 








1287 


1*60* 








1256 


1*65* 








761* 


768 








236 


2*6 


*10 


653 


1015 


11*0 


11*9 


115* 


1157* 




75» 


118^ 


1299 


1350 


1565 


118* 


1186* 








*21 


*22* 








*29* 










**2 


*50* 








1215* 


1218 








1222 


1225* 








1226* 


1228 








12*8 


1250* 








1257* 


1259 








126* 


1279* 








127* 


1296* 









1111 1569* 



378 



385 



388 



392 



S95 



397 



an 



81* 



*170< 
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SLINCNT 

SLINEPQS 

SLOOK 

SLOOK.O 

ILOOK.1 

SLOOK. 2 

*LOOK.3 

SL00K.4 

SLOOK. 5 

4L00K.6 

SLSTB.O 

SLSTB.l 

JLSTB.2 

SLST8.2A 

SLSTB.2B 

MSTB.2C 

SLSTB.A 

SLSTB.9 

SLSTBIT 

SLSTPAS 

SMAxIO 

tHM.l 

i«1.2 

tHH.3 

SMM.3A 

4HM16.1 

thSGPRT 

SKSSPRT1 

SNOT.OU 

10PT.0 

S0PT.2 

SOPT.3 

S0PT.4 

SOPT.5 

S0PT.6 

SOPT.A 

S0PT.8 

SOPTNAME 

SOPTPRT 

SOPTV.O 

I0PTV.2 

SOPTV.3 

I0TC.0 

SOTC.l 

S0TC.2 

SOTC.3 

J0TC.4 

10TC.5 

S0TC6 

$0TC.7 

SOUTBUF 

SPG 
SP1 
tPAtjSE 



0000 
OOOU 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
OOOO 
0000 

oono 

0000 

oono 

0000 

oono 

0000 
0000 
0000 
0000 

oono 

0000 
0000 
0000 
0000 

ooao 
oooo 

0000 
0000 

oooo 
oono 
oooo 
oooo 
oooo 
oooo 
oono 
oooo 
oooo 
oono 
oooo 
oooo 
oooo 
oooo 
oooo 
ooao 
oooo 
oooo 
oooo 
oooo 
oooo 



16DE 
1562 
0AEA 
0AF2 
0AF4 
OAFE 
0620 
0B30 
0B58 
0B6E 
0F5A 
0F70 
0F7C 
0F7E 
0F9A 
OFAA 
0F4E 
0F58 
QF3E 
1554 
0006 
1466 
146C 
147C 
148E 
1*58 
0E9C 
OEBO 
12A8 
0C02 
0C18 
0C32 
0C64 
OCfcC 
0CA2 
OCOE 
0C14 
OOOO 
OBEA 
OEBE 
0E08 
0EE4 
1062 
1066 
1072 
107A 
108E 
1096 
10B6 

iocs 

358C 



uuuvj ur'ue 
0000 0FD6 
OOOO 1570 



212 


368 


406 


885 887 


891 1646* 


875 


984 


1574* 






229* 


41* 








231* 


242 


251 






232* 










236* 


245 








240 


248* 








249 


253* 








266* 










270 


274* 








812* 


826 








815 


819* 








823* 










813 


824* 








831 


833* 








836 


838* 








808* 


834 








807 


811* 








801* 










1039 


1145 


1563* 






112* 


358 


1029 






1405 


1414* 








1407 


1416* 








1408 


1415 


1416 


1439* 




1443 


1445* 








1402 


1410* 








573 


582 


595 


635* 




565 


64l* 








1151 


1155* 








356 


365* 








371* 


376 








383* 










390 


398* 








400* 










4X5, 










367* 


405 


415 






369* 


408 








46* 










254 


355* 








653* 


658 


669 






662* 


665 








663 


667* 








926* 


937 








927* 


932 








931* 


93? 








930 


934* 








925 


933 


941* 






943* 


951 








953* 


958 








928 


944 


946 


949 954 


956 959* 


372 


378 


385 


388 392 


395 397 


869 


4169* 








*i* * 


s_X~. 








ooo 


O f •»» 








860 


870 


874* 


1019 




926 


931 


941 


1581* 





458 



459 



461 



817 



82n 



828 
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SPRINT 

SPRT.l 

SPRT.2 

SPRT.3 

$PRT.<* 

SPRTFLG 

SR14SAV 

SR15SAV 

SR53IN 

SRO.l 

SR0.2 

SRC. 3 

SRD.3A 

SR0.4 

SRD.5 

$R0.6 

SR0.7 

SREAD 

SRSAYRET 

SRUNlT 

SSETUP 

SSHUTOWN 

sSTC.l 

SSTC.2 

*crr s 3 

SSTC.4 

SSTC.5 

SSTIH1 

$STr?UCl 

ST3RKSV 

STIMEK 

STinRET 

STIMVAL 

STI.1XT 

STSTB.l 

STSTB.1A 

STSTB.2 

tTSTB.3 

STST8.4 

STST3.5 

STSTB.6 

STSTB.T 

STSTOU.l 

SVALU1 



SVALU2 

SWAsOU 

SXI1 

SXI16 

SXI16A 

SXI32 



0000 ofba 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0P!J0 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 



0FF8 
100E 
102C 
1050 
1564 
35AC 
35A8 

oooo 

1000 
1002 
10D8 
10F8 
110E 
112A 
1134 
1146 
10CC 
0F12 
0CA6 
12EC 
1572 
1162 
1168 
lljfe 
11C6 
1104 
OEFC 
O00C 
35A0 
0EF8 
OFOC 
0A5A 
0F10 
11F4 
UFA 
1200 
1212 
122C 
1250 
12SE 
1264 
1290 
0008 



0000 OOOA 

0000 1566 

0000 13F0 

0000 13C6 

0000 130E 

0000 1304 



197 
3495 
885* 
689 
896 
915 
900 
563 
495 

71* 
982* 
983* 
985* 
991 
1002 
1009 
1011 
1017 
223 
728* 
419* 
942 
1582* 
1031 
1034 
1041 
1063 
1069 
690* 
45* 
1084 
681* 
696 
170* 
722* 
1090* 
1092* 
1088 
1098 
1109* 
1100 
1124 
1129* 
1144 

48* 
1710 
2300 
2976 

49* 
2958 
199 
1356* 
1272 
1332 
1224 



453 



893* 
908* 
918* 
909 
570 
499 
732 
1013 
1014 
1022 

997* 
1004* 
1012* 
1015* 
1020* 
40* 
769 
1683 
1202* 

1033» 
1036* 
1046* 
1066* 
1071* 
695 
50 
1092 

721* 
692 

110* 

1113 

1095* 

1100* 

1134 

1122* 

1127* 

1130 

1146* 

194 
1712 
2387 
3014 

295 
3025 

45* 

1328* 
1339* 
1335* 



455 



899 



1112 
579 
504 



1021 



862* 916 1077 1118 1390 1540 268* 2688 3234 3244 



902 



1575* 
588 601 
509 515 



617 
521 



630 
554 



642 1212 
4165* 



1296 4166* 



981* 
877 
1690 



884 



912 



230 
4164* 



1104 



1133 



274 
1732 
2394 

3026 
305 

3146 
879 



231 



296 



309 



400 



1107 1126 



294 
1734 
2405 
3145 

323 



296 
1744 
24i»3 

389 



299 

1754 
2485 



322 

1756 

2593 



383 
1758 
2693 



883 
2079 
2756 



lna5 

2083 
2778 



1139 
2106 

2936 



1688 1689 
?193 2234 
2942 2959 



1646 1711 1733 2233 2302 2404 ?594 2777 



1158 1160 1576* 
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3BUILD 


0000 


17C0 


256 


1677* 










3SUILDV 


0000 


17B6 


260 


1673* 










SBV 


0000 


X7CA 


1676 


1679 


1681* 








SBV1 


0000 


1TE2 


1686 


1688* 










MPRINT 


coco 


oFca 


396 


469 


832 


837 


868* 




iVERlFY 


0000 


17C8 


222 


258 


1680* 








ABSENT* 


0000 


34DD 


2907 


4151* 










ABSTOP 


0000 


4UC 














ACT 


0000 


OOOB 


1896* 












AOC 


0000 


0002 


99 


182 


535 


536 


538 562 6o4 621 635 636 639 65n 862 








863 


86& 


1220 


1232 


1239 1246 1262 1327 1362 moO 1440 1471 1476 








I486 


1493 
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0B7E 
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1634 
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1651 


1655 
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0BC6 


304 
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0886 


290* 


1633 
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1636 


215 
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15C3 


591 
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150* 


574 
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1SFE 


627 


1613* 
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15E3 


1538 


1609* 
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15F2 
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15CB 


583 


596 
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ATTR 
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0024 


1905 + 


3168 


3169 
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BAOSTA 


oooo 


19C4 


1770 


1787 


1792 


1877* 






BIGVAL1 


oooo 


OBEO 


318 


322* 










BIGVALUE 


oooo 


OB06 


317* 


1642 


1643 








R1TCOUNT 


oooo 


1A42 


1962* 


2268 


2271 


2287 


2291 




BKSP 


oooo 


1A3A 


1954* 


1955 


2203 


2762 






RKSPRCRO 


oono 


1A3F 


1959* 


3421 










BKSZ 


oooo 


0025 


1906* 












BLOCK 


oooo 


1A8A 


1987* 


2802 


2846 


2849 






9H.LBA 


oooo 


001* 


1888* 


2305 










8MAP0001 


oooo 


10D6 


2260* 


2272 










3HAP0002 


oooo 


10DA 


2262* 


2267 










3HAP0003 


oooo 


1EO0 


2263 


2274* 


2278 








8MAP0004 


oooo 


1E28 


2286* 


2293 










SMAPOONE 


oooo 


1E42 


2288 


2295* 
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1AC4 


2022* 


22«6 
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oooo 


3020 


3803 


3606* 
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3040 


381b* 


3820 
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3082 


3841* 


3846 










BOOTiO 
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30CA 
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3876 
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3903 










BOOTCHCK 
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32F8 
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3919* 
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DISK 
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1FB9 


2392 
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18E2 
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1776 
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18EE 
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2280 
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2324* 
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2920 


2924* 












DISKETTE 
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263A 


2735 


2911* 












I'ISKFIN 
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28C0 


3082 


3108* 
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27BE 


2961 


3025* 
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0000 


2FC8 
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2279 


2289 


2316 


3207 


3762* 
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3002 


3790 


3794* 
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1A6A 


1724 


1979* 


2406 


2956 
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1A6C 


1747 


198°* 


2064 


2779 


2834 


3030 
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1A68 


1976* 
3743 


2085 
3758 


2241 


2255 


2375 
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DISKWAIT 
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2B4C 


181* 


1837 


2341 
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476* 
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1A31 


1945* 


3616 
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1A35 


1785 


1653 


1949* 


2236 


3305 
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1A52 


1967* 


3341 


3347 


3362 
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oooo 


16BC 


1642* 
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2302 
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1723 


1746 
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3328 


3669 
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2670 


2764 


2774 


2652 


2893 


2927* 


3062 




DWRITE 
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1A32 


1946* 


1947 


3622 
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313F 
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26*0 


FILESET1 
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FINOMAX 


0000 


1C0C 
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FINDMAX3 


0000 
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0000 


1F7C 
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2842 


FINISH. 
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2856 
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28A0 
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288A 


FIRST 
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1C66 
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206C 
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199E 
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19B0 
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1A24 
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1A20 
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1A22 


FMDFLAG 


oooo 


1B2A 


FWOIOLE 


oooo 


2B0E 
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oooo 
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521* 
496 
497 
548 
499* 
501 
572 
509* 
523 
515* 
516 
624 
1381 
564 
2367 
1379 
524 
607 
613 
504* 
506 
529 
581 
533 
2574 
1895* 
2060* 
1815 
3309 
1986* 
2113, 
2121* 
2127 
2173 
3063 
3071 
3090 
3091* 
2712 
1708 
1709 
1654* 
1897* 
2170* 
2391 
2449 
2459 
1713 
1865* 
1936* 
1934* 
1935* 
2071* 
2111 
1894* 



138 1 * 
500 505 
502 507 
553* 



510 
513 



511 570* 3236 

590 1554* 1877 
1878 

588* 3223 3246 



6i7* 

627* 

1615* 

1597* 

4141* 

1386 

601* 

610* 

619* 



512 

553 
594 
1598* 
2576* 
3159 
2071 
1838 
3319* 
3132 
213<* 
2124 
2132* 
22l3 
3070* 
3076* 
3097* 
3105 
2716* 
1730 
1753 

3177 

2184 

2443* 

2456* 

2462* 

1737 

2109 
2446 
2110 

250* 
2149 
3140 
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3497 
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F0RHL8A 


0000 


2FA8 


2306 


2791 


3125 


3191 


3198 


3756* 
















FORHLBA1 


0000 


2FB2 


3762* 


3765 


3767 






















FORML6A2 


0000 


2FC0 


3763 


3768* 
























FORHtBA3 


0000 


2FC2 


3769* 


3772 


3774 






















F0RMLBA4 


00O0 


2FD0 


3770 


3775* 
























FORWARD 
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1A2F 


1943* 


2398 


2766 






















FRST.BLK 
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2306 


2717 


2729* 
























GET256 


0000 


26F8 


2963* 


2966 
























GETSOME 


oooo 


2602 


2930 


2932* 


3067 






















oO.DISK 


0000 


25F4 


2889* 


2901 
























1,03a 
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313A 


3917 


3920* 
























GOTMSG 
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3385 


2750 


4137* 
























HALT9 
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0CE2 


200 


440* 


446 


552 


660 


















HALT9A 


oooo 


0CE8 


443* 


15H 
























rtOTAB 


oooo 


1A9A 


1997* 


2380 


3704 


3728 


3749 


















HEAOER 


oono 


3500 


2665 


4152* 
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0F18 


386 
2625 
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2646 


463 
2650 


466 
2654 


592 

2658 
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638 


757* 


821 


1539 


2604 


2612 


hEXTAB 


oooo 


157A 


662 


764 


1380 


1590* 


2629 


2661 
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oooo 


1B06 


2058* 


2496 


2498 


2544 


2548 


2553 


2652 


2656 


2607 
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oooo 


2AE6 


2944 


2952 


2970 


3274* 
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oooo 


365C 


2410 


2429 
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2432 


2433 


2451 


2463 
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1A58 
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2087 


2413 
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1A5C 


1972* 


2091 


2450 


2455 
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oooo 


1A5A 
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208? 


2408 


2421 


2425 


2448 


2457 


2461 
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OOOO 


1A5E 
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2C88 


2414 


2427 
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3070 


3833* 


3852 
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168C 


1637* 


1756 


2443 
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oooo 


0026 
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385C 
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2161 


2177 
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2303 
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2348 
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2363 


2364 
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2374 


2713 


2722 


2725 


2745 
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2932 


2974 
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3114 


3116 
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3251 
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3568 


3655 


3661 
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3690 
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oooo 


154E 


477 


1558* 
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1FF0 


2409 


2418 
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INCYL 
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1A60 


1974* 


2438 


2960 
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INOEV 
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165C 
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mo 


1711 


1758 


2079 


2387 


2404 


2938 


2958 










INFLAG 


oooo 


1A4E 


1721 


1743 


1965* 


2076 


2386 


2939 
















INHEAO 


oooo 


1A62 


1975* 


2439 


2961 


2966 




















INIT 


oooo 
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424 
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1714 
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1EF6 


2349* 


2384 
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1088 
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2233* 
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1EC4 


za46 


2356* 
























INITMAG 
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0000 


1F06 
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15*A 


INTLVL 


0000 


1776 
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0000 


1607 


INTPSH 


0000 


15*0 


INTSAV 
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*ooc 


INTSTA 


oono 


15<tC 


10 


0000 


0A10 


IOSAVE 


0000 


155A 


IS16 


0000 


3086 


ISITERR 


0000 


155C 


K8REA0 


oooo 


1200 


KEYS 


0000 


001* 


uADC 


0000 


0001 


tBATAB 


0000 


1AB6 


LCORE 


0000 


130* 


LDBtjF 


0000 


01A8 


LEFTOVER 


0000 


1BS2 
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